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

如题所述

第1个回答  2017-01-16
Sub UnhideAllSheets()

For Each Sheet In ActiveWorkbook.Sheets

Sheet.Visible = True

Next

End Sub本回答被网友采纳
第2个回答  2019-06-26

如果需要恢复隐藏的工作表多的话,一般的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表格格式批量操作应用

相似回答