Excel 请问如何批量取消隐藏的工作表

发布网友发布时间：2022-03-08 23:51

共2个回答

热心网友时间：2022-03-09 01:20

Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub

热心网友时间：2022-03-09 02:38

如果需要恢复隐藏的工作表多的话，一般的Excel界面操作是实现不了批量恢复的，需要借助VBA或是专门应用。以下推荐两种快速方法：

（1）可以使用VBA代码的方法恢复，打开VBE，将下列代码贴到新建的宏中，然后执行宏，隐藏的工作表就全恢复了。

Sub 恢复所有隐藏工作表()

Dim i As Integer

Application.DisplayAlerts = False

For i = Sheets.Count To 1 Step -1

If Sheets(i).Visible = False Then

Sheets(i).Delete

Else

End If

Next i

ActiveWorkbook.Save

End Sub

（2）可以使用专门恢复隐藏工作簿的应用处理，还可以多个excel工作簿一起操作，很快。

Excel表格格式批量操作应用