如何使用VBA取消隐藏工作簿中的每个Excel工作表？

我如何使用VBA取消隐藏工作簿中的每个Excel工作表，而不必像下面那样列出所有工作表。

Sub UnhideAllSheets() Sheets("Sheet1").Visible = True Sheets("Sheet2").Visible = True End Sub 

Answer 1

您可以使用以下VBA代码取消隐藏Excel中的所有工作表

 Sub UnhideAllSheets() Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets ws.Visible = xlSheetVisible Next ws End Sub 

信贷到这个网站