excel批量取消隐藏工作表

　按下"Alt+F11"键,在打开的"Microsoft Bisual Basic"窗口中,选择"插入——模块".，复制下面的代码，按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