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 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.
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:
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?
Nejlepší nástroje pro produktivitu v kanceláři
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...
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!