在 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 键，即可展开 Sheet 1 中的所有分组。

如果您希望折叠所有分组，可以使用以下代码：

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

注意：上述代码中的 Sheet 1 是包含您要展开或折叠分组的工作表名称，请根据需要替换为您自己的工作表名称。