EXCEL批量取消隐藏的工作表

一个EXCEL工作薄里如果隐藏了大量的工作表，需要将其全部取消隐藏

可以通过开始->格式->隐藏和取消隐藏->取消隐藏工作表

在弹出的对话框内按住Shift或Ctrl建多选表格即可批量取消隐藏

当然也可以用VBA实现批量取消隐藏

按Alt+F11

在"VBA窗口的任意模块粘贴下面的代码后按F5键运行，就能实现功能

代码一：

Sub 批量取消隐藏工作表()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Visible = True
Next
End Sub

代码二：

Sub 批量取消隐藏工作表()
For Each AA In Sheets
AA.Visible = True
Next
End Sub