08批量取消工作表隐藏？

后台有朋友询问如何批量取消工作表隐藏？今天咱们就来聊下这个问题。

咱们这说的是批量取消工作表隐藏，不是批量隐藏工作表。后者所有Excel的版本都是支持的，选中多个工作表后，右键菜单选择隐藏就可以了。

至于批量取消隐藏，大部分Excel版本都不支持，除了MS365以外。

❶ MS365版本

如果你使用的版本是MS365，可以右键点击工作表标签→取消隐藏。打开取消隐藏对话框后，按住Ctrl键选取多个工作表标签，就可以一次性取消隐藏了。

悄悄说一下，WPS也支持批量取消工作表隐藏，【取消隐藏】对话框还支持全选快捷键Ctrl+A。

❷ 普通Excel版本

如果你所使用的Excel不是氪金的MS365，怎么办呢？

我这里有个偏方，你不妨大胆试一下。

首先，在工作表未隐藏状态下，在【视图】选项卡中依次单击【自定义视图】→【添加】，打开添加视图对话框，在名称栏输入一个名字，比如"看见星光"，并【确定】。

这样一来，我们就建了一个名称为"看见星光"的自定义视图。

弄这个有啥用呢？打个响指，马上揭晓。

将需要隐藏的工作表批量隐藏。此时，如果需要批量取消隐藏工作表，在视图选项卡下，依次单击【自定义视图】→【看见星光】→【显示】就可以了┓( ´∀` )┏

💡小思考：

如何快速切换回批量工作表隐藏的状态呢？

❸ VBA代码

偏方虽好，但是药三分毒局限性很大，就再给大家提供一种VBA的方式。

以下代码可以一次性取消全部工作表的隐藏状态。

代码如看不全，可以左右拖动..▼

Sub unShtVisible()    Dim sht As Worksheet    For Each sht In Worksheets '遍历工作表，设置可见        sht.Visible = xlSheetVisible    NextEnd Sub

如果只需要取消隐藏部分工作表，可以在代码中添加条件判断语句，将需要隐藏的工作表名称写在以下代码的第3行中，并以"/"作为分隔符合并即可。

Sub unShtVisible()    Dim sht As Worksheet, t    t = "看见星光/Excel星球/Sheet5/" '将需要隐藏的工作表名称写在这    For Each sht In Worksheets '遍历工作表，设置可见        If InStr(t, sht.Name &"/") Then            sht.Visible = xlSheetVisible        End If    NextEnd Sub