Hvordan udvides eller lukkes alle grupperækker og kolonner i Excel?
I Excel kan du bruge gruppeværktøjet til at gruppere data efter behov. Men hvis der er mange grupper i arket, hvordan kan du hurtigt udvide eller lukke alle grupper uden at klikke manuelt? Her introducerer jeg VBA-koder for nemt at løse dette job i Excel.
Udvid eller luk alle grupperækker og kolonner i Excel
Udvid eller luk alle grupperækker og kolonner i Excel
Her er nogle VBA-koder, der kan hjælpe dig med at udvide eller lukke alle grupper på én gang.
1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, kopier og indsæt blowkode til det nye modul。
VBA: Udvid alle grupper
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. Trykke F5 nøgle er grupperne i Ark1 blevet udvidet.
Hvis du vil lukke alle grupper, kan du bruge nedenstående kode:
Sub CollapseAll() Worksheets("sheet1").Outline.ShowLevels 1, 1 End Sub
Bemærk: i ovenstående koder er Ark1 arket indeholder grupper, du vil blive udvidet eller lukket. Skift det til dit eget arknavn, hvis du har brug for det.
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50% og reducerer hundredvis af museklik for dig hver dag!
