Come rimuovere fogli vuoti da una Cartella di lavoro Excel
Si supponga di avere una cartella di lavoro di grandi dimensioni con più fogli, ma alcuni di essi sono vuoti, senza alcun contenuto. Per rendere la cartella più professionale e ordinata, si desidera rimuovere questi fogli vuoti. Invece di eliminarli uno per uno, questa guida presenta metodi per rimuovere rapidamente tutti i fogli vuoti.
Rimuovi tutti i fogli vuoti utilizzando VBA
Rimuovi tutti i fogli vuoti utilizzando Kutools per Excel 
Rimuovi tutti i fogli vuoti utilizzando VBA
Di seguito trovi un codice VBA che ti permette di eliminare rapidamente tutti i fogli vuoti da una cartella di lavoro aperta.
1. Premere i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fare clic su Inserisci > Modulo, quindi incollare il codice VBA riportato di seguito nella nuova finestra del Modulo.
VBA: Elimina i fogli vuoti.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub3. Premere il tasto F5 oppure fare clic sul pulsante Esegui per eseguire il codice VBA. Apparirà una finestra di dialogo che chiede se rimuovere i fogli vuoti. Fare clic su Sì per procedere oppure su No per annullare l’operazione.
4. Dopo aver fatto clic su Sì, apparirà una finestra di dialogo che mostra il numero di fogli rimossi. Fare clic su OK per chiuderla: tutti i fogli vuoti saranno stati rimossi.
Rimuovi tutti i fogli vuoti utilizzando Kutools per Excel
Per gli utenti meno esperti di Excel, l’utilizzo di VBA può risultare un metodo piuttosto complesso. Tuttavia, grazie alla funzione Kutools per Excel di Elimina fogli vuoti, puoi rimuovere tutti i fogli vuoti da una cartella di lavoro con soli tre clic del mouse!
1. Apri la cartella di lavoro da cui vuoi rimuovere i fogli vuoti e fai clic su KUTOOLS PLUS > Foglio di lavoro > Elimina fogli vuoti. Guarda lo screenshot:
Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora
Articoli correlati:
- Come contare e rimuovere i duplicati da un elenco in Excel?
- Come eliminare una stringa dopo l’ennesimo carattere in Excel?
- Come rimuovere il testo tra parentesi quadre o tonde in Excel?
- Come si rimuovono le forme linea in Excel?
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