怎样取消全部隐藏的工作表（批量取消隐藏的工作簿）

目前只有批量隐藏工作表，

无批量取消隐藏工作表指令。

如果存在大批量的隐藏工作表，

最简单的办法还是使用VBA辅助完成。

6行代码瞬间解决。

操作演示

快捷键Alt F11激活VBA编辑器

点击右键，插入一个新模块

复制下面代码，然后粘贴到新模块中。

Sub Show_All_Sheet()

Dim SheetAll As Worksheet

For Each SheetAll In Worksheets'轮询所有工作表

SheetAll.Visible = True'工作表属性设置为可视

Next SheetAll

End Sub

快捷键F5激活宏窗口。

点击允许即可。

注意

笔记本电脑F5功能键可能被占用，需要使用Fn F5

或者使用菜单

---

对Excel感兴趣，记得关注。

喜欢就点个赞。

,