如何在 Excel 中展开或关闭所有分组的行和列？

在 Excel 中，您可以使用“分组”功能根据需要对数据进行分组。但如果工作表中有很多分组，如何快速展开或关闭所有分组而无需手动点击呢？这里，我将介绍一些 VBA 代码，帮助您轻松完成此操作。

在 Excel 中展开或关闭所有分组的行和列

在 Excel 中展开或关闭所有分组的行和列

以下是一些 VBA 代码，可以帮助您一次性展开或关闭所有分组。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，复制并将以下代码粘贴到新模块中。

VBA：展开所有分组

Sub ExpandAll()
'UpdatebyExtendoffice20181031
    Dim I As Integer
    Dim J As Integer
   
    On Error Resume Next
    For I = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels rowLevels:=I
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next I
    For J = 1 To 100
        Worksheets("Sheet1").Outline.ShowLevels columnLevels:=J
        If Err.Number <> 0 Then
            Err.Clear
            Exit For
        End If
    Next J
End Sub

3. 按下 F5 键，Sheet1 中的所有分组将被展开。

如果您想关闭所有分组，可以使用以下代码：

Sub CollapseAll()
    Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub

备注： 在上述代码中，Sheet1 是包含要展开或关闭的分组的工作表。如有必要，请将其替换为您自己的工作表名称。