Jak odstranit všechny prázdné listy v aplikaci Excel?

Pokud máte sešit, který má spoustu pracovních listů, mezitím v něm jsou nějaké prázdné listy. A nyní chcete odstranit prázdné listy, abyste soubor uložili nebo archivovali. Jak můžete hledat prázdné listy z více listů a automaticky je mazat?

Odstraňte všechny prázdné listy s kódem VBA

Odstraňte všechny prázdné listy pomocí Kutools pro Excel

Odstraňte všechny prázdné listy s kódem VBA

Je pro vás obtížné zkontrolovat prázdné listy a odstranit je jeden po druhém, ale s následujícím kódem VBA můžete snadno odstranit všechny prázdné listy najednou.

1. Podržte ALT + F11 klíče a otevře se Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

VBA: smažte všechny prázdné listy

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. Pak stiskněte tlačítko F5 klíč a všechny prázdné listy jsou odstraněny najednou.

Odstraňte všechny prázdné listy pomocí Kutools pro Excel

Pokud nejste obeznámeni s kódem VBA, mohu vám představit snadný nástroj - Kutools pro Excel, S jeho Odstraňte prázdné pracovní listy funkce, můžete jedním kliknutím odstranit všechny prázdné listy.

Kutools pro Excel obsahuje více než 300 užitečných nástrojů aplikace Excel. Zdarma to můžete vyzkoušet bez omezení do 30 dnů. Získat nyní.

Po instalaci aplikace Kutools pro Excel postupujte podle následujících kroků:

1, klikněte Kutools Plus > Pracovní list > Odstraňte prázdné pracovní listy, viz screenshot:

2. Zobrazí se okno s výzvou, které vám připomene, zda chcete odstranit všechny prázdné listy nebo ne, viz screenshot:

3. Pak klikněte na tlačítko Anoa prázdné listy byly úspěšně odstraněny. Zobrazit snímky obrazovky:

Pokud se chcete o této funkci dozvědět více, klikněte prosím Odstraňte prázdné pracovní listy.

Související článek:

Jak odstranit skryté listy v aplikaci Excel?