如何一次性取消100个隐藏的工作表

在Excel中，有时会遇到将多个工作表隐藏起来的情况。当需要一次性取消100个隐藏的工作表时，手动一个一个地取消会十分耗时费力。幸运的是，我们可以通过使用VBA代码来轻松实现这一操作。通过简单编写代码，我们可以快速取消100个隐藏的工作表，提高工作效率的同时节省大量时间和精力。接下来我们将介绍如何使用VBA代码来实现一次性取消100个隐藏的工作表的方法。

假设你有隐藏的工作需要取消隐藏，如果是少量的隐藏工作表取消的话，直接在工作表标签里选择要取消隐藏的表格，点击逐个点击取消隐藏就可以了，可是如果有大量的隐藏工作表需要取消隐藏怎么办，一个一个点击工作表取消隐藏就太费神费力了，效率非常低，这时候可以借助vba的方法，只需要一个VBA语句能搞定的事情，何乐而不为呢？

具体的操作步骤如下：

第1步：按Alt+F11快捷键,调出VBA操作界面

第2步：点击其中一个工作表，右键选择插入，再选择模块

3）在模块中输入以下VBA代码，之后关闭整个VBA界面

Sub ShowSht()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Visible = -1

Next sht

End Sub

4）按快捷键alt+F8,在对话框宏界面，点击Showsht，再点击执行，大功告成，你可以看到左右的隐藏工作表瞬间都显示出来了，神不神奇

以下是具体的操作视频：