一次取消多个隐藏工作表的两种方法(使用VBA和不用VBA)
只要你隐藏过工作表,你就遇到过这种小麻烦:当你想取消隐藏的工作表时,你只能从鼠标右键菜单中一个一个的选择隐藏。这次,我们介绍两个方法,可以一次性取消多个隐藏的工作表
但是,取消隐藏就没有这么方便了,你只能在一次一次的调出下面的对话框,选取一个,点击确定:
这实在太烦人了😫!
1
自定义视图
我们可以采用自定义视图来解决这个问题。
首先在没有隐藏工作表时,点击“视图”选项卡,然后点击“自定义视图”
在弹出的“视图管理器”中点击“添加”
在弹出的“添加视图”对话框中,输入名称:“无隐藏”(随便起你便于理解的名字),然后点击确定
这里需要注意的是,如果勾选了“打印设置”,“隐藏行列及筛选设置”。那么在你以这个视图显示的时候,你做的隐藏或筛选等操作将被取消。
然后隐藏需要除了Sheet1之外的工作表。再次创建自定义视图
你可以在两个视图之间随意切换,一个是隐藏了工作表的视图,一个是没有隐藏的视图:
这个方法挺好。就是有一个缺陷,如果你拿到的文件已经隐藏了工作表,你得不到全部工作表的视图(除非你你一个一个的取消隐藏)。这时,你可以用下面的VBA代码来一次性取消所有的隐藏的工作表。
2
请输入标题
首先,在Excel中按Alt+F11,打开VBA的编辑窗口。然后双击“ThisWorkbook”
复制下面的代码,粘贴右侧窗口
Sub
UnhideAllSheets()
Dim
HiddenSheet
As
Worksheet
For
Each
HiddenSheet
In
ActiveWorkbook.Worksheets
HiddenSheet.Visible = xlSheetVisible
Next
HiddenSheet
End
Sub
如下图:
然后点击运行(或者按F5键),大功告成!
3
总结
觉得好看点个【在看】再走吧