Note: The other languages of the website are Google-translated. Back to English
Accedi  \/ 
x
or
x
Registrati  \/ 
x

or

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.
doc espandi chiudi tutto il gruppo 1

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.
doc espandi chiudi tutto il gruppo 2

Se vuoi chiudere tutti i gruppi, puoi usare il codice seguente:

Sub CollapseAll()
    Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub

doc espandi chiudi tutto il gruppo 3

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 kte 201905

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!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    CJ · 1 years ago
    Collapse all works great. I just changed Worksheets("sheet1") to ActiveSheet for my needs