如何使用 vba 显示所有列（带有示例）

您可以使用 VBA 中的Hidden属性来显示给定工作表中的列。

要显示给定工作表上的所有列，您可以使用以下语法：

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

通过使用Hidden属性并指定值False ，我们告诉 Excel 显示当前工作表上的所有列。

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

示例：如何使用 VBA 显示所有列

假设我们有一个 Excel 工作表，其中包含有关不同篮球运动员的信息：

现在假设我们突出显示 A 列和 B 列，然后右键单击，然后单击隐藏：

两列都将被隐藏：

现在假设我们要使用 VBA 自动显示此工作表上的所有列。

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

 Sub UnhideAllColumns()

Columns.EntireColumn.Hidden = False

End Sub

执行此宏后，所有列都将变得可见：

请注意，原始数据集中的所有列都再次可见。

请注意，如果要显示 Excel 工作簿中所有工作表的所有列，可以创建以下宏来执行此操作：

 Sub UnhideAllColumnsAllSheets()

Dim ws As Worksheet

    For Each ws In Worksheets
        ws.Columns.EntireColumn.Hidden = False
    Next ws

End Sub

使用简单的For Each 循环，我们可以循环工作簿中的每个工作表并显示每个工作表上的所有列。

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

其他资源

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

VBA：如何显示所有工作表
VBA：如何查找最后使用的列
VBA：如何计算使用的列数