工作表如何全部一次性取消隐藏（如果你有100个隐藏的工作表）

工作表如何全部一次性取消隐藏（如果你有100个隐藏的工作表）sht.Visible = -1 For Each sht In Worksheets3）在模块中输入以下VBA代码，之后关闭整个VBA界面Sub ShowSht() Dim sht As Worksheet

假设你有隐藏的工作需要取消隐藏，如果是少量的隐藏工作表取消的话，直接在工作表标签里选择要取消隐藏的表格，点击逐个点击取消隐藏就可以了，可是如果有大量的隐藏工作表需要取消隐藏怎么办，一个一个点击工作表取消隐藏就太费神费力了，效率非常低，这时候可以借助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，再点击执行，大功告成，你可以看到左右的隐藏工作表瞬间都显示出来了，神不神奇

以下是具体的操作视频：