键取消所有E X C E L工作表隐藏的快捷键原来
是它
Coca-cola standardization office【ZZ5AB-ZZSYT-ZZ2C-ZZ682T-ZZT18】
一键取消所有excel工作表隐藏的快捷键，原来是它！
图文/兰色幻想(来自Excel精英培训微信平台)
在excel中隐藏工作表比较方便，选取多个工作表后右键菜单点隐藏即可，但取消工作表隐藏就非常麻烦了。

需要一个一个的取消。

今天兰色分享一个可以一键取消和隐藏所有工作表的方法。

效果演示：按ctrl+shift+Q隐藏所有工作表（指定不隐藏的除外）按Ctrl+Q取消所有工作表这个快捷键很好用，但...不是Excel自带的，而是需要我们手工添加。

如果你也想使用，就随兰色一起做吧。

一、设置和使用
步骤1 粘贴代码复制下面的代码，excel工作表标签右键菜单中点“查看代码” ，会打开一个叫【visual baisc...】的窗口，在这个窗口中点击插入模块，然后把代码复制粘贴到右边的空白窗口中。

最后把文件保存为
'Excel启用宏的工作簿'。

代码：Sub 取消隐藏()For x = 1 To Sheets(x).Name '总表' Then
Sheets(x).Visible = -1End IfNext xEnd SubSub 隐藏()For x = 1 To Sheets(x).Name '总表' Then Sheets(x).Visible = 0End IfNext xEnd 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编程全套视频教程。