導讀工作中用的excel表sheet太多了，隱藏可以批量進行，但取消隱藏只能一個一個操作，真心效率好低。于是在網上學了一招：1.右鍵單擊任意工作表，然后左鍵單擊....

工作中用的excel表sheet太多了，隱藏可以批量進行，但取消隱藏只能一個一個操作，真心效率好低。

于是在網上學了一招：

1.右鍵單擊任意工作表，然后左鍵單擊【查看代碼】選項，打開Visual Basic編輯器。

2.新建一個模板并鍵入VBA代碼。首先右鍵單擊工程資源管理器窗口，然后依次選擇插入→模板。

3.將以下代碼復制粘貼到右側模板1的代碼窗口中。

Sub 一鍵批量取消工作表隱藏()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Visible = xlSheetVisible

Next

End Sub

4.接著左鍵單擊菜單欄中的【運行】選項，左鍵單擊下拉菜單中的【運行子過程/用戶窗體】選項就可以批量取消隱藏工作表。

5.啟動開發工具，請依次點擊文件→選項→自定義功能區→在開發工具前打上對勾→確定。

6.插入控件，依次點擊開發工具→控件功能區→插入按鈕（窗體控件）。

7.在工作表區域長按左鍵畫出一個大小合適的按鈕，在彈出的指定宏對話框中，左鍵單擊選中宏【一鍵批量取消工作表隱藏】并單擊確定按鈕，接著對按鈕重命名為取消隱藏工作表，方便后期知曉其功能。

8.現在大部分使用的是【*.xlsx】格式的Excel工作簿，接下來需要更改文件的存儲格式，否則會造成宏無法使用的情況。依次點擊文件→另存為→選擇存儲路徑。設置保存類型為Excel97-2003工作簿(*xls)或者是Excel啟用宏的工作簿(*.xlsm)，最后左鍵單擊【保存】按鈕。

總結一下，功能很酷炫，真的很實用，效率極高，記得要啟用宏才行。但*.xlsx格式不支持，要么降版本（有些現有功能可能老版不支持），要么存為*.xlsm，可能是沒用慣，總看著奇奇怪怪的[捂臉][捂臉][捂臉]

怕影響領導看數據，最終決定還是手動取消隱藏吧……[摳鼻][摳鼻][摳鼻]