Come rimuovere fogli vuoti da una cartella di lavoro Excel

Supponiamo di avere una cartella di lavoro di grandi dimensioni con più fogli, ma alcuni di essi sono vuoti e non contengono alcun contenuto. Per rendere la cartella di lavoro più professionale e formale, si desidera rimuovere questi fogli vuoti. Invece di eliminare i fogli vuoti uno per uno, questa guida introduce 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

Qui vi presento un codice VBA per aiutarvi a rimuovere rapidamente tutti i fogli vuoti da una cartella di lavoro aperta.

1. Premere i tasti Alt + F11 per abilitare la finestra Microsoft Visual for Basic Applications.

2. Fare clic su Inserisci > Modulo, incollare il codice VBA sottostante nella finestra Modulo appena aperta.

VBA: Rimuovi 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 Sub

3. Premere il tasto F5 o fare clic sul pulsante Esegui per eseguire il VBA. Apparirà una finestra di dialogo che chiederà se rimuovere i fogli vuoti. Fare clic su Sì per procedere o 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 e tutti i fogli vuoti verranno rimossi.

Rimuovi tutti i fogli vuoti utilizzando Kutools per Excel

Per i principianti di Excel, utilizzare VBA può essere un metodo un po' difficile da eseguire. Ma con la funzione Elimina fogli vuoti di Kutools per Excel, puoi rimuovere rapidamente tutti i fogli vuoti da una cartella di lavoro con 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. Vedi screenshot:

Articoli correlati:

• Come contare e rimuovere duplicati da una lista in Excel?
• Come eliminare una stringa dopo l'ennesimo carattere in Excel?
• Come rimuovere il testo all'interno di parentesi quadre/tonde in Excel?
• Come rimuovere le forme delle linee in Excel?