Jak odstranit prázdné listy ze sešitů
Předpokládejme, že máte velký sešit s více listy, ale v tomto sešitu jsou nějaké prázdné listy bez jakéhokoli obsahu. Aby byl sešit profesionálnější a formálnější, chcete tyto prázdné listy ze sešitu odebrat. Místo toho, abych odstranil prázdné listy jeden po druhém, představuji metody rychlého odstranění všech prázdných listů.
Odstraňte prázdné listy pomocí VBA
Odstraňte prázdné listy pomocí programu Kutools pro Excel
Odstraňte prázdné listy pomocí VBA
Zde představuji VBA, který vám pomůže rychle odstranit všechny prázdné listy z otevřeného sešitu.
1. lis Alt + F11 klíče k povolení Microsoft Visual pro základní aplikace okno.
2. A klikněte Vložit > Modul, vložte pod kód VBA do nového vyskakovacího okna Modul okno.
VBA: Odstraňte prázdné listy.
Sub DeletEmptySheets()
'UpdatebyKutoolsforExcel20151130
Dim xWs As Worksheet
Dim xAlert As Boolean
Dim xCount As Long
xAlert = Application.DisplayAlerts
Application.DisplayAlerts = False
If MsgBox("Are you sure to remove all empty sheets?", vbYesNo, "Kutools for Excel") = vbNo Then Exit Sub
For Each xWs In ActiveWorkbook.Worksheets
If (Application.CountA(xWs.Cells) = 0) And _
(xWs.Shapes.Count = 0) Then
xWs.Delete
xCount = xCount + 1
End If
Next
MsgBox "You have removed " & xCount & " empty sheet(s)", , "Kutools for Excel"
Application.DisplayAlerts = xAlert
End Sub
3. A stiskněte F5 klávesou nebo tlačítkem Spustit spustíte VBA a objeví se dialogové okno, které vám připomene, zda chcete odstranit prázdné listy, klepněte na Ano pokračovat v odstraňování, Ne zrušit tuto VBA.
4. Po kliknutí Ano, objeví se dialogové okno s informacemi o počtu odstraněných listů, klikněte na OK zavřít a všechny prázdné listy byly v tuto chvíli odstraněny.
Odstraňte prázdné listy pomocí programu Kutools pro Excel
U některých zelených hand Excel je VBA poněkud obtížná metoda, ale s Kutools pro ExcelJe Odstraňte prázdné pracovní listy funkce, můžete rychle odstranit všechny prázdné listy ze sešitu třemi kliknutími myší!
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. |
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. Povolte sešit, ze kterého chcete odstranit prázdné listy, a klepněte na Kutools Plus > Pracovní list > Odstraňte prázdné pracovní listy. Viz snímek obrazovky:
Relativní články:
- Jak počítat a odstraňovat duplikáty ze seznamu v aplikaci Excel?
- Jak odstranit řetězec za n-tým znakem v aplikaci Excel?
- Jak odstranit text v závorkách / závorkách v aplikaci Excel?
- Jak odstranit tvary čar 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!