用微信扫码二维码

分享至好友和朋友圈

收到一位读者声泪俱下的求助，说他刚入职新公司，接收了已离职前任留下的一大堆表格。

有个很大的文件，只有一个工作表，但是其中有很多公式引用了其他工作表中的源数据，他知道其他工作表一定是隐藏起来了，于是想通过“取消隐藏”去修改源数据。

这一看，差点让他裸辞！竟然有100多个隐藏的数据表！不知道前任是不是故意挖坑，光是一个个取消隐藏这些数据表，就得花他1、2个小时。这还不算完，类似的文件，有很多个！那怎么办？

我一听，多大点事儿，加个按钮，一点就能取消所有工作表了呗。

案例：

下图1的工作簿中有多个隐藏的工作表，点击红框中的“取消全部隐藏”按钮，就能一次性将所有隐藏的工作表全部显示出来。

效果如下图2所示。

解决方案：

下图的工作簿中一共有7个工作表。

1.按住Shift键，依次点击Sheet2和Sheet7，选中多个工作表-->右键单击-->在弹出的菜单中选择“隐藏”，就能将第2至7个工作表同时隐藏起来。

那么是不是也可以将这些隐藏的工作表同时取消隐藏？

2.将鼠标放到Sheet1标签上 -->右键单击 -->在弹出的菜单中选择“取消隐藏”

3.在弹出的对话框中能看到所有隐藏的工作表，但是！按住Shift键却无法多选，只能选中一个工作表，将其取消隐藏。

如果有很多个隐藏工作表，那么隐藏的时候一时爽，取消隐藏的时候满头霜。

如何批量取消隐藏所有工作表？以前我曾经给大家分享一种技巧，详情请参阅

Excel实用tips(12)–批量隐藏工作表

。

今天再教另外一个更容易操作的方式。

4.按Alt+F11 -->在弹出的VBE窗体中选择菜单栏的“插入用户窗体”-->“模块”

5.在右侧的模块窗体中输入以下代码：

SubUnhide()

ForEachSheetInSheets'遍历工作簿中的所有工作表

Sheet.Visible=True'将工作表设置为可见

NextSheet

ub

6.关闭VBE，回到Excel-->选择菜单栏的“开发工具”-->“插入”-->“按钮（窗体控件）”

7.选中按钮 -->右键单击 -->在弹出的菜单中选择“编辑文字”

8.将按钮的文本修改为“取消全部隐藏”

9.再次选中按钮 -->右键单击 -->在弹出的菜单中选择“指定宏”

10.在弹出的菜单中选择刚才编写的模块Unhide -->点击“确定”

现在再次隐藏除Sheet1之外的多个工作表，然后点击按钮，就能批量取消隐藏所有工作表。

最后保存文件。

11.按Ctrl+S -->将文件保存为.xlsm格式，这样才能正常运行宏文件。

特别声明：以上内容(如有图片或视频亦包括在内)为自媒体平台“网易号”用户上传并发布，本平台仅提供信息存储服务。

Notice: The content above (including the pictures and videos if any) is uploaded and posted by a user of NetEase Hao, which is a social media platform and only provides information storage services.