Přejít k hlavnímu obsahu

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

Autor: Xiaoyang Naposledy změněno: 2013-10-25

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


šipka modrá pravá bublina 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 Every 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.


šipka modrá pravá bublina 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 Enterprise > Nástroje listu > Odstraňte prázdné pracovní listy, viz screenshot:

doc-delete-blank-sheets1

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

doc-delete-blank-sheets2

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

doc-delete-blank-sheets3
-1
doc-delete-blank-sheets4

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?

Nejlepší nástroje pro produktivitu v kanceláři

🤖 Kutools AI asistent: Revoluční analýza dat založená na: Inteligentní provedení   |  Generovat kód  |  Vytvořte vlastní vzorce  |  Analyzujte data a generujte grafy  |  Vyvolejte funkce Kutools...
Populární funkce: Najít, zvýraznit nebo identifikovat duplikáty   |  Odstranit prázdné řádky   |  Kombinujte sloupce nebo buňky bez ztráty dat   |   Kolo bez vzorce ...
Super vyhledávání: Více kritérií VLookup    VLookup s více hodnotami  |   VLookup na více listech   |   Fuzzy vyhledávání ....
Pokročilý rozevírací seznam: Rychle vytvořte rozevírací seznam   |  Závislý rozbalovací seznam   |  Vícenásobný výběr rozevíracího seznamu ....
Správce sloupců: Přidejte konkrétní počet sloupců  |  Přesunout sloupce  |  Přepnout stav viditelnosti skrytých sloupců  |  Porovnejte rozsahy a sloupce ...
Doporučené funkce: Zaměření mřížky   |  Návrhové zobrazení   |   Velký Formula Bar    Správce sešitů a listů   |  Knihovna zdrojů (Automatický text)   |  Výběr data   |  Zkombinujte pracovní listy   |  Šifrovat/dešifrovat buňky    Odesílat e-maily podle seznamu   |  Super filtr   |   Speciální filtr (filtr tučné/kurzíva/přeškrtnuté...) ...
Top 15 sad nástrojů12 Text Tools (doplnit text, Odebrat znaky, ...)   |   50+ Graf Typ nemovitosti (Ganttův diagram, ...)   |   40+ Praktické Vzorce (Vypočítejte věk na základě narozenin, ...)   |   19 Vložení Tools (Vložte QR kód, Vložit obrázek z cesty, ...)   |   12 Konverze Tools (Čísla na slova, Přepočet měny, ...)   |   7 Sloučit a rozdělit Tools (Pokročilé kombinování řádků, Rozdělit buňky, ...)   |   ... a více

Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času.  Kliknutím sem získáte funkci, kterou nejvíce potřebujete...

Popis


Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Estimado, no se si me pueda ayudar. Tengo esta macro precisamente para eliminar hojas vacías, pero no logro hacer que funcione al correrla una sola vez, la tengo que ejecutar dos veces para que borre todas las hojas vacías. Que esta fallando para que haga la tarea de borrar todas las hojas en una sola corrida.

La macro es:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas As Integer
Dim i As Integer

On Error Resume Next
Application.ScreenUpdating = False
Application.DisplayAlerts = False

Nhojas = Sheets.Count

For i = 1 To Nhojas

If WorksheetFunction.CountA(Sheets(i).UsedRange) = 0 And Sheets(i).Shapes.Count = 0 Then

Sheets(i).Delete

Else
' Nada
End If
Next i

On Error GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
This comment was minimized by the moderator on the site
I cannot speak your language but I see a flaw in your code.
The problem is >> Nhojas = Sheets.Count
And then you depend on Nhojas but when you delete a sheet you do not reduce Nhojas by 1

So just add this line to your code after "Sheets(i).Delete" and before "Else":
Nhojas = Nhojas - 1

Done :)

You have done a good job though, but you need to dry run your code when you try and debug the code.
This comment was minimized by the moderator on the site
Public member 'WorksheetFunction' on type 'WorkbookClass' not found.
i'm using Interop.Excel
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations