excel批量取消隐藏所有工作表

在excel中，我们有时会把不要的工作表隐藏起来。前面我们介绍过如果批量隐藏多个工作表。但是如果需要取消隐藏工作表呢？显示逐个去取消隐藏是不科学的
代码放在模块中，运行一下这个自定义函数，即可隐藏和取消隐藏工作表了。Sub取消隐藏()
Forx=1ToSheets.count
IfSheets(x).Name"sheet14"Then
Sheets(x).Visible=-1
EndIf
Nextx
EndSub
Sub隐藏()
Forx=1ToSheets.count
IfSheets(x).Name"sheet14"Then
Sheets(x).Visible=0
EndIf
Nextx
EndSub
效果图：
1510305980128260.gif (512.83 KB, 下载次数: 0, 售价: 3 金钱)

2022-4-21 20:36 上传

点击文件名下载附件
1510305980128260.gif