Excel通过宏一键自动取消所有隐藏工作表

平时的汇报工作中，经常会隐藏工作底稿的工作Sheet，仅显示汇报工作表。

在后续数据维护或者数据勾稽过程中，可能需要取消隐藏工作表。

如果涉及的工作表较多，一个一个手工取消隐藏的话，非常影响工作效率。

这里提供一个宏代码，可以实现一键自动取消所有隐藏的工作表。

代码如下：

Sub qxyc()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Visible = xlSheetVisible
Next
End Sub

使用方法：

1. 打开Excel，在工作表页签右键，选择”查看代码“;
2. 在弹出的窗口最上方菜单，依次选择”插入-模块“，复制粘贴以上代码，保存；
3. 选择你要创建超链接目录的工作表，点击代码窗口顶部菜单的”运行“；
4. 接下来就是见证奇迹的时刻。