對(duì)于Excel工作簿中隱藏的多個(gè)工作表，需要一次性取消隱藏,，只能通過VBA的方式來實(shí)現(xiàn),，否則只能一個(gè)一個(gè)地取消隱藏，雖然可以通過改變Excel自定義視圖的方式來進(jìn)行切換,，但實(shí)際上并沒有取消隱藏工作表,。

現(xiàn)在因?yàn)镋xcel2016有了新的功能Power Query、Power Pivot等（Excel2010或Excel2013可到微軟官方下載相應(yīng)的插件），對(duì)數(shù)據(jù)的自動(dòng)化處理和分析等的支持有了巨大的提升,，因此,，我已經(jīng)很久沒有寫VBA代碼了。

不過,，對(duì)于諸如批量隱藏和取消隱藏工作表等的操作,，還是必須用VBA，而且,，這個(gè)批量取消隱藏工作表的代碼實(shí)在太簡(jiǎn)單,，如下所示：

Sub Unhide()

Dim sht As Worksheet

For Each sht In ThisWorkbook.Worksheets

sht.Visible = xlSheetVisible

Next

End Sub