Come eliminare tutti i fogli di lavoro vuoti in Excel?

Se hai una cartella di lavoro che ha molti fogli di lavoro, nel frattempo, ci sono alcuni fogli di lavoro vuoti. E ora vuoi eliminare i fogli di lavoro vuoti per salvare o archiviare il file. Come potresti cercare i fogli vuoti da più fogli di lavoro ed eliminarli automaticamente?

Elimina tutti i fogli di lavoro vuoti con codice VBA

Elimina tutti i fogli di lavoro vuoti con Kutools per Excel

Elimina tutti i fogli di lavoro vuoti con codice VBA

È fastidioso per te controllare i fogli di lavoro vuoti e rimuoverli uno per uno, ma con il seguente codice VBA puoi eliminare facilmente tutti i fogli di lavoro vuoti contemporaneamente.

1. Tieni premuto il ALT + F11 chiavi e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente 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 premere F5 chiave e tutti i fogli di lavoro vuoti vengono eliminati contemporaneamente.

Elimina tutti i fogli di lavoro vuoti con Kutools per Excel

Se non hai familiarità con il codice VBA, posso presentarti uno strumento facile- Kutools for Excel, Con la sua Elimina fogli di lavoro vuoti funzione, puoi rimuovere tutti i fogli di lavoro vuoti con un clic.

Kutools for Excel include più di 300 utili strumenti Excel. Prova gratuita senza limitazioni per 30 giorni. Get it Now.

Dopo aver installato Kutools per Excel, eseguire le seguenti operazioni:

1. Clic Kutools Plus > Foglio di lavoro > Elimina fogli di lavoro vuoti, vedi screenshot:

2. E apparirà una finestra di messaggio per ricordarti se desideri eliminare tutti i fogli di lavoro vuoti o meno, vedi screenshot:

3. Quindi fare clic Sie i fogli di lavoro vuoti sono stati eliminati correttamente. Vedi screenshot:

Se vuoi saperne di più su questa funzione, fai clic su Elimina fogli di lavoro vuoti.

Articolo correlato:

Come eliminare i fogli di lavoro nascosti in Excel?