按下"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
时间: 2024-10-08 16:20:17