Hoe alle groepsrijen en -kolommen in Excel uit te vouwen of te sluiten?
In Excel kunt u het hulpprogramma Groep gebruiken om gegevens naar behoefte te groeperen. Maar als er veel groepen op het blad staan, hoe kunt u dan snel alle groepen uitvouwen of sluiten zonder handmatig te klikken? Hier introduceer ik VBA-codes om deze taak eenvoudig in Excel op te lossen.
Vouw alle rijen en kolommen van groepen uit of sluit deze in Excel
Vouw alle rijen en kolommen van groepen uit of sluit deze in Excel
Hier zijn enkele VBA-codes die u kunnen helpen om alle groepen tegelijk uit te breiden of te sluiten.
1. druk op Alt + F11 toetsen om het Microsoft Visual Basic voor toepassingen venster.
2. klikken Invoegen > Module, kopieer en plak de blaascode in de nieuwe module。
VBA: vouw alle groepen uit
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 key, zijn de groepen in Sheet1 uitgebreid.
Als u alle groepen wilt sluiten, kunt u onderstaande code gebruiken:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Opmerking: in bovenstaande codes is Blad1 het blad dat groepen bevat die u zult worden uitgevouwen of gesloten. Wijzig het indien nodig in uw eigen bladnaam.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!