admin 在Excel中隐藏工作表更方便。选择多个工作表后，隐藏右键单击菜单点即可
但是取消隐藏工作表很麻烦。
需要取消。
今天点击一下就可以取消所有工作表，分享隐藏的方法。
效果演示：
按ctrl+shift+Q隐藏所有工作表（指定不隐藏的除外）
按Ctrl+Q取消所有工作表
这个快捷键很好用，但...不是Excel自带的，而是需要我们手工添加。如果你也想使用，就一起来学习吧。
一、设置和使用
步骤1 粘贴代码
复制下面的代码，excel工作表标签右键菜单中点“查看代码” ，会打开一个叫【visual baisc...】的窗口，在这个窗口中点击插入模块，然后把代码复制粘贴到右边的空白窗口中。最后把文件保存为"Excel启用宏的工作簿"。
代码：
Sub 取消隐藏()
For x = 1 To S
If Sheets(x).Name <> "总表" Then
Sheets(x).Visible = -1
End If
Next x
End Sub
Sub 隐藏()
For x = 1 To S
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的学习，下一个会是你吗？