Hur expanderar eller stänger man alla grupperade rader och kolumner i Excel?

I Excel kan du använda gruppverktyget för att gruppera data efter behov. Men om det finns många grupper i arket, hur kan du snabbt utöka eller stänga alla grupper utan att klicka manuellt? Här kommer jag att introducera VBA-koder för att enkelt lösa det här jobbet i Excel.

Expandera eller stäng alla grupperade rader och kolumner i Excel

Expandera eller stäng alla grupperade rader och kolumner i Excel

Här är några VBA-koder som kan hjälpa dig att utöka eller stänga alla grupper på en gång.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulerna, kopiera och klistra in koden nedan i den nya modulen.

VBA: Utöka alla grupper

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. Tryck F5 nyckeln har grupperna i Sheet1 utökats.

Om du vill stänga alla grupper kan du använda koden nedan:

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

Notera: i ovanstående koder är Sheet1 arket som innehåller de grupper du vill utöka eller stänga. Ersätt det med ditt eget arknamn om det behövs.