excel如何批量取消隐藏的工作表

excel如何批量取消隐藏的工作表

大家都知道，在平时使用过程中批量隐藏工作表的方法是使用键盘CTRL和鼠标选取需要隐藏的工作表标签，让后再使用鼠标右键隐藏功能来达到隐藏工作表的目的，但是要取消，excel就没有这样的功能了，大家就要一个一个的去选择右键[取消隐藏工作表】了，是不是很麻烦呢，下面我们来分享下，用VBA代码来完成批量取消隐藏的方法

首先我们打开有隐藏的工总婶作薄文件.大家会发现只有一个工作表标签SHEETS1，因为SHEETS2和SHEETS3我们以前做了隐藏

我按ALT+F11键进入以下界面

选取EXCEL对象，右键会得到图示效果

双击插入-模块

进入如激讨图界面

我们见代码：

Sub qxyc()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Visible = xlSheetVisible

Next

End Sub

写入到如图界面，按F5键，在回到工作薄

大家会发现哨诸拒，我们以前隐藏的工作表回来了，效果如图：