Jak rozbalit nebo zavřít všechny řádky a sloupce skupiny v aplikaci Excel?
V aplikaci Excel můžete použít nástroj Group k seskupení dat podle potřeby. Pokud ale v listu existuje mnoho skupin, jak můžete rychle rozbalit nebo zavřít všechny skupiny bez ručního kliknutí? Zde představuji kódy VBA, abych tuto práci snadno vyřešil v aplikaci Excel.
Rozbalte nebo zavřete všechny skupiny řádků a sloupců v aplikaci Excel
Rozbalte nebo zavřete všechny skupiny řádků a sloupců v aplikaci Excel
Zde je několik kódů VBA, které vám pomohou rozšířit nebo zavřít všechny skupiny najednou.
1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, zkopírujte a vložte foukací kód do nového modulu。
VBA: Rozbalte všechny skupiny
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. lis F5 klíč, skupiny v Listu1 byly rozšířeny.
Chcete-li zavřít všechny skupiny, můžete použít níže uvedený kód:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Poznámka: ve výše uvedených kódech je List1 list obsahující skupiny, které budou rozbaleny nebo uzavřeny. Pokud potřebujete, změňte jej na název vlastního listu.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!