Jak rozwinąć lub zamknąć wszystkie wiersze i kolumny grup w programie Excel?
W programie Excel możesz użyć narzędzia Group do grupowania danych według potrzeb. Ale jeśli w arkuszu jest wiele grup, jak możesz szybko rozwinąć lub zamknąć wszystkie grupy bez ręcznego klikania? Tutaj przedstawiam kody VBA, aby łatwo rozwiązać tę pracę w Excelu.
Rozwiń lub zamknij wszystkie wiersze i kolumny grup w programie Excel
Rozwiń lub zamknij wszystkie wiersze i kolumny grup w programie Excel
Oto kilka kodów VBA, które mogą pomóc w rozszerzeniu lub zamknięciu wszystkich grup jednocześnie.
1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.
2. kliknij wstawka > Modułskopiuj i wklej kod blow do nowego modułu。
VBA: Rozwiń wszystkie grupy
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. naciśnij F5 kluczem, grupy w Sheet1 zostały rozszerzone.
Jeśli chcesz zamknąć wszystkie grupy, możesz użyć poniższego kodu:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Uwaga: w powyższych kodach Arkusz1 jest arkuszem zawierającym grupy, które zostaną rozwinięte lub zamknięte. Jeśli potrzebujesz, zmień go na własną nazwę arkusza.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!