Come espandere o chiudere tutte le righe e le colonne del gruppo in Excel?
In Excel, puoi utilizzare l'utilità Gruppo per raggruppare i dati di cui hai bisogno. Ma se ci sono molti gruppi nel foglio, come puoi espandere o chiudere rapidamente tutti i gruppi senza fare clic manualmente? Qui, presento i codici VBA per risolvere facilmente questo lavoro in Excel.
Espandi o chiudi tutte le righe e le colonne dei gruppi in Excel
Espandi o chiudi tutte le righe e le colonne dei gruppi in Excel
Ecco alcuni codici VBA che possono aiutarti ad espandere o chiudere tutti i gruppi contemporaneamente.
1. Stampa Alt + F11 tasti per abilitare il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulo, copia e incolla il codice di soffiaggio nel nuovo modulo。
VBA: espandi tutti i gruppi
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. Stampa F5 chiave, i gruppi in Sheet1 sono stati espansi.
Se vuoi chiudere tutti i gruppi, puoi usare il codice seguente:
Sub CollapseAll() Worksheets("sheet1").Outline.ShowLevels 1, 1 End Sub
Nota: nei codici sopra, Foglio1 è il foglio che contiene i gruppi che verranno espansi o chiusi. Si prega di cambiarlo con il nome del proprio foglio se necessario.
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Super Formula Bar (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce centinaia di clic del mouse ogni giorno!
