圖文/蘭色幻想(來自Excel精英培訓微信平臺)
在excel中隱藏工作表比較方便，選取多個工作表後右鍵菜單點隱藏即可，但取消工作表隱藏就非常麻煩了。需要一個一個的取消。
今天蘭色分享一個可以一鍵取消和隱藏所有工作表的方法。
效果演示：
按ctrl+shift+Q隱藏所有工作表（指定不隱藏的除外）
按Ctrl+Q取消所有工作表
這個快捷鍵很好用，但...不是Excel自帶的，而是需要我們手工添加。如果你也想使用，就隨蘭色一起做吧。
一、設置和使用
步驟1 粘貼代碼
複製下面的代碼，excel工作表標籤右鍵菜單中點「查看代碼」 ，會打開一個叫【visual baisc...】的窗口，在這個窗口中點擊插入模塊，然後把代碼複製粘貼到右邊的空白窗口中。最後把文件保存為"Excel啟用宏的工作簿"。
代碼：
Sub 取消隱藏()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "總表" Then
Sheets(x).Visible = -1
End If
Next x
End Sub
Sub 隱藏()
For x = 1 To Sheets.Count
If Sheets(x).Name <> "總表" Then
Sheets(x).Visible = 0
End If
Next x
End Sub
註：如果你有多個工作表不需要隱藏，可以把
If Sheets(x).Name <> "總表" Then
替換為
If InStr("總表-表1-表2", Sheets(x).Name) = 0 Then
（表之間用-連接放在引號裡,可以連接任意多個表名）
步驟2：設置快捷鍵
按alt+f8打開宏窗口 - 選取「取消隱藏」 - 選項 - 輸入「小寫」的q，確定後再選「隱藏」，輸入大寫的Q。
(當然你也可以設置其他的字母作為快捷鍵)
二、刪除和修改
1、刪除
按上面方法打開visible basic窗口，在左上的「工程」窗口選取模塊1」模塊1『，如果刪除就點右鍵的「移除模塊」 。
2、修改
雙擊模塊1，然後在右邊的窗口中更改代碼。關閉窗口。
蘭色說：在excel中現有功能和函數公式做不到的事，VBA基本上都可以幫你完成。所以才有那麼多人迷戀VBA的學習，下一個會是你嗎？
點擊左下角「閱讀原文」查看蘭色和小妖錄製的數據透視表全套+函數全套+技巧全套+VBA編程全套視頻教程