如何在 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 是包含要展開或關閉群組的工作表。如果需要，請將其替換為您自己的工作表名稱。