Wie kann ich alle Gruppenzeilen und -spalten in Excel erweitern oder schließen?
In Excel können Sie das Dienstprogramm Group verwenden, um Daten nach Bedarf zu gruppieren. Wenn das Blatt jedoch viele Gruppen enthält, wie können Sie alle Gruppen schnell erweitern oder schließen, ohne manuell darauf zu klicken? Hier stelle ich VBA-Codes vor, um diesen Job in Excel einfach zu lösen.
Erweitern oder schließen Sie alle Gruppenzeilen und -spalten in Excel
Erweitern oder schließen Sie alle Gruppenzeilen und -spalten in Excel
Hier sind einige VBA-Codes, mit denen Sie alle Gruppen gleichzeitig erweitern oder schließen können.
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert > Modul, kopieren Sie den Blow-Code und fügen Sie ihn in das neue Modul ein。
VBA: Erweitern Sie alle Gruppen
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. Drücken Sie F5 Schlüssel, die Gruppen in Sheet1 wurden erweitert.
Wenn Sie alle Gruppen schließen möchten, können Sie den folgenden Code verwenden:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Hinweis: In den obigen Codes ist Sheet1 das Blatt, das Gruppen enthält, die erweitert oder geschlossen werden. Bitte ändern Sie es bei Bedarf in Ihren eigenen Blattnamen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!