Come espandere o comprimere tutti i gruppi di righe e colonne in Excel?
In Excel, puoi utilizzare lo strumento Raggruppa per organizzare i dati in base alle tue esigenze. Tuttavia, se il foglio contiene numerosi gruppi, come puoi espanderli o comprimerli tutti rapidamente senza dover fare clic manualmente su ciascuno? Di seguito trovi alcuni codici VBA che ti permettono di eseguire questa operazione in modo semplice e veloce.
Espandere o chiudere tutti i gruppi di righe e colonne in Excel
Espandere o chiudere tutti i gruppi di righe e colonne in Excel
Di seguito trovi alcuni codici VBA per espandere o comprimere tutti i gruppi contemporaneamente.
1. Premere Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci > Modulo, quindi copiare e incollare il codice seguente nel nuovo modulo.
VBA: Espandere 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. Premere F5: i gruppi nel Foglio1 sono stati espansi.
Se si desidera chiudere tutti i gruppi, è possibile utilizzare il codice seguente:
Sub CollapseAll()
Worksheets("sheet1").Outline.ShowLevels 1, 1
End Sub
Nota: nei codici precedenti, Foglio1 è il foglio che contiene i gruppi da espandere o chiudere. Sostituiscilo con il nome del tuo foglio, se necessario.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi