Jak usunąć wszystkie puste arkusze w programie Excel?
Jeśli masz skoroszyt, który zawiera wiele arkuszy roboczych, tymczasem jest w nim kilka pustych arkuszy. A teraz chcesz usunąć puste arkusze, aby zapisać lub zarchiwizować plik. Jak możesz wyszukiwać puste arkusze z wielu arkuszy i usuwać je automatycznie?
Usuń wszystkie puste arkusze z kodem VBA
Usuń wszystkie puste arkusze za pomocą Kutools for Excel
Usuń wszystkie puste arkusze z kodem VBA
Sprawdzanie pustych arkuszy i usuwanie ich jeden po drugim jest kłopotliwe, ale za pomocą następującego kodu VBA możesz łatwo usunąć wszystkie puste arkusze jednocześnie.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.
VBA: usuń wszystkie puste arkusze
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 Jeśli Next Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub
3. Następnie naciśnij F5 klucz, a wszystkie puste arkusze są usuwane jednocześnie.
Usuń wszystkie puste arkusze za pomocą Kutools for Excel
Jeśli nie znasz kodu VBA, mogę przedstawić proste narzędzie - Kutools dla programu Excel, Z siedzibą w Usuń puste arkusze funkcja, możesz usunąć wszystkie puste arkusze robocze jednym kliknięciem.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz.
Po zainstalowaniu Kutools dla programu Excel wykonaj następujące czynności:
1. Kliknij Enterprise > Narzędzia arkusza roboczego > Usuń puste arkuszezobacz zrzut ekranu:
2. Pojawi się okno zachęty, aby przypomnieć, czy chcesz usunąć wszystkie puste arkusze, czy nie, zobacz zrzut ekranu:
3. Następnie kliknij Tak, a puste arkusze zostały pomyślnie usunięte. Zobacz zrzuty ekranu:
Jeśli chcesz dowiedzieć się więcej o tej funkcji, kliknij Usuń puste arkusze.
Podobne artykuły:
Jak usunąć ukryte arkusze w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!