我如何使用VBA中的工作簿中的每个Excel表格

Question

我如何使用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

贷记本网站