如何使用 vba 显示所有工作表（附示例）

您可以使用 VBA 中的Visible属性来显示 Excel 工作簿中的工作表。

要显示工作簿中的所有工作表，可以使用以下语法：

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

使用简单的For Each循环并指定Visible = True ，我们告诉 Excel 显示工作簿中的所有工作表。

以下示例展示了如何在实践中使用此语法。

示例：如何使用 VBA 显示所有工作表

假设我们有一个包含四张工作表的 Excel 工作簿：

现在假设我们右键单击Sheet4 ，然后单击Hide ：

假设我们对Sheet2重复此过程，以便现在唯一可见的工作表是Sheet1和Sheet3 。

假设我们要使用 VBA 显示工作簿中的所有工作表。

我们可以创建以下宏来执行此操作：

 Sub UnhideAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Visible = True
    Next ws

End Sub

执行该宏后，将显示工作簿中的所有工作表：

注意：您可以在此处找到 VBA 中Visible属性的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何查找最后使用的行
VBA：如何查找最后使用的列
VBA：如何冻结窗格