Hoe alle gegroepeerde rijen en kolommen in Excel uitvouwen of sluiten?

In Excel kunt u de Groeperingsfunctie gebruiken om gegevens te groeperen zoals u nodig hebt. Maar als er veel groepen op het werkblad zijn, hoe kunt u dan snel alle groepen uitvouwen of sluiten zonder handmatig te klikken? Hier introduceer ik VBA-codes om deze taak eenvoudig op te lossen in Excel.

Alle gegroepeerde rijen en kolommen in Excel uitvouwen of sluiten

Alle gegroepeerde rijen en kolommen in Excel uitvouwen of sluiten

Hier zijn enkele VBA-codes die u kunnen helpen om alle groepen tegelijk uit te vouwen of te sluiten.

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak de onderstaande code in de nieuwe Module.

VBA: Alle groepen uitvouwen

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. Druk op F5 toets, de groepen in Werkblad1 zijn nu uitgevouwen.

Als u alle groepen wilt sluiten, kunt u de volgende code gebruiken:

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

Opmerking: in bovenstaande codes is Werkblad1 het werkblad dat de groepen bevat die u wilt uitvouwen of sluiten. Vervang dit door uw eigen werkbladnaam indien nodig.