Note: The other languages of the website are Google-translated. Back to English
English English

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

Karta Office Povolte úpravy a procházení na kartách v Office a vaše práce bude mnohem jednodušší ...
Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%
  • Znovu použít cokoli: Přidejte do svých oblíbených nejpoužívanější nebo nejsložitější vzorce, grafy a cokoli jiného a rychle je v budoucnu znovu použijte.
  • Více než 20 textových funkcí: Extrahovat číslo z textového řetězce; Extrahovat nebo odebrat část textů; Převádějte čísla a měny na anglická slova.
  • Sloučit nástroje: Více sešitů a listů do jednoho; Sloučit více buněk / řádků / sloupců bez ztráty dat; Sloučit duplicitní řádky a součet.
  • Rozdělené nástroje: Rozdělit data do více listů na základě hodnoty; Jeden sešit pro více souborů Excel, PDF nebo CSV; Jeden sloupec na více sloupců.
  • Vložit přeskakování Skryté / filtrované řádky; Count And Sum podle barvy pozadí; Posílejte hromadně osobní e-maily více příjemcům.
  • Super filtr: Vytvořte pokročilá schémata filtrů a použijte je na jakékoli listy; Typ podle týdne, dne, frekvence a dalších; Filtr tučně, vzorce, komentovat ...
  • Více než 300 výkonných funkcí; Funguje s Office 2007-2019 a 365; Podporuje všechny jazyky; Snadné nasazení ve vašem podniku nebo organizaci.

š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ší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

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 omezuje stovky kliknutí myší každý den!
officetab dno
Komentáře (3)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Veřejný člen 'WorksheetFunction' typu 'WorkbookClass' nebyl nalezen.
používám Interop.Excel
Tento komentář byl moderátorem webu minimalizován
Odhaduji, no se si me pueda ayudar. Tengo esta makro precisamente para eliminar hojas vacías, ale 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.

Makro je:

Sub Buscar_Hojas_Vacías_y_Eliminarlas2()

Dim Nhojas jako celé číslo
Dim i As Integer

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

Nhojas = Listy.Počítání

Pro i = 1 To Nhojas

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

Listy(i).Smazat

Jiný
'Nada
End If
Příště já

Při chybě GoTo 0
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

Gracias, espero sus comentarios.
Tento komentář byl moderátorem webu minimalizován
Nemluvím vaším jazykem, ale ve vašem kódu vidím chybu.
Problém je >> Nhojas = Sheets.Count
A pak jste závislí na Nhojas, ale když smažete list, nesnížíte Nhojas o 1

Stačí tedy přidat tento řádek do kódu za „Sheets(i).Delete“ a před „Else“:
Nhojas = Nhojas - 1

Darovat :)

Odvedli jste dobrou práci, ale když se pokusíte kód ladit, musíte svůj kód spustit nasucho.
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění