批量取消隐藏工作表的方法

一个群友问到如何批量取消隐藏工作表。在一个excel工作薄里隐藏了十几张工作表，想将其取消隐藏，使用excel内置的功能：“格式――工作表――取消隐藏”，只能逐张慢慢取消隐藏工作表，如何批量取消隐藏工作表呢？

要解决批量取消隐藏工作表，就只能使用VBA代码完成。

下面提供两端批量取消隐藏工作表的VBA代码，都可以实现。

批量取消隐藏工作表代码一：

按下"Alt+F11"键,在打开的"MicrosoftBisualBasic"窗口中,选择"插入――模块".，复制下面的代码，按F5键运行，就完成了批量取消隐藏工作表。

Sub批量取消隐藏工作表()
 DimiAsInteger
   Fori=1ToWorksheets.Count
     Worksheets(i).Visible=True
   Next
EndSub

批量取消隐藏工作表代码二：

Sub批量取消隐藏工作表()
 ForEachAAInSheets
   AA.Visible=True
 Next
EndSub

两段代码使用任意一段都可以批量取消隐藏工作表。