Come eliminare tutti i fogli di lavoro vuoti in Excel?

Se hai una cartella di lavoro con numerosi fogli di lavoro e alcuni di essi sono vuoti, potresti voler eliminare i fogli vuoti per risparmiare spazio o archiviare il file. Come potresti cercare i fogli vuoti tra più fogli di lavoro ed eliminarli automaticamente?

Elimina tutti i fogli di lavoro vuoti con il codice VBA

Elimina tutti i fogli di lavoro vuoti con Kutools per Excel

Elimina tutti i fogli di lavoro vuoti con il codice VBA

È complicato controllare manualmente i fogli di lavoro vuoti ed eliminarli uno per uno, ma con il seguente codice VBA, puoi eliminare facilmente tutti i fogli vuoti in una volta sola.

1. Tieni premuti i tasti ALT + F11, si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella finestra del Modulo.

VBA: elimina tutti i fogli di lavoro vuoti

Sub DeleteBlankWorksheets()
'Update 20130830
Dim Ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Ws In Application.Worksheets
    If Application.WorksheetFunction.CountA(Ws.UsedRange) = 0 Then
        Ws.Delete
    End If
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

3. Quindi premi il tasto F5, e tutti i fogli di lavoro vuoti verranno eliminati immediatamente.

Elimina tutti i fogli di lavoro vuoti con Kutools per Excel

Se non sei familiare con il codice VBA, ti posso presentare uno strumento semplice - Kutools per Excel, con la sua funzione Elimina Fogli di Lavoro Vuoti, puoi rimuovere tutti i fogli vuoti con un solo clic.

Kutools per Excel include più di 300 utili strumenti per Excel. Provalo gratuitamente senza limitazioni per 30 giorni. Ottienilo ora.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Clicca su Kutools Plus > Foglio di lavoro > Elimina Fogli di Lavoro Vuoti, vedi screenshot:

2. Apparirà una finestra di dialogo per chiederti se desideri eliminare tutti i fogli di lavoro vuoti, vedi screenshot:

3. Quindi clicca su Sì, e i fogli di lavoro vuoti verranno eliminati con successo. Vedi gli screenshot:

Se vuoi saperne di più su questa funzionalità, clicca su Elimina Fogli di Lavoro Vuoti.

Articolo correlato:

Come eliminare i fogli di lavoro nascosti in Excel?