Jak usunąć puste arkusze ze skoroszytów
Przypuśćmy, że masz duży skoroszyt z wieloma arkuszami, ale w tym skoroszycie są puste arkusze bez zawartości. Aby skoroszyt był bardziej profesjonalny i formalny, chcesz usunąć te puste arkusze ze skoroszytu. Zamiast usuwać puste arkusze jeden po drugim, przedstawiam metody szybkiego usuwania wszystkich pustych arkuszy.
Usuń puste arkusze przez Kutools dla programu Excel
Usuń puste arkusze przez VBA
Tutaj przedstawiam VBA, aby pomóc Ci szybko usunąć wszystkie puste arkusze z otwartego skoroszytu.
1. naciśnij Alt + F11 klucze do włączenia Microsoft Visual dla podstawowych aplikacji okno.
2. I kliknij wstawka > Moduł, wklej poniższy kod VBA do nowego wyskakującego Moduł okno.
VBA: Usuń puste arkusze.
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. I naciśnij F5 lub przycisk Uruchom, aby wykonać VBA, i pojawi się okno dialogowe przypominające, czy usunąć puste arkusze, kliknij Tak kontynuować usuwanie, Nie anulować ten VBA.
4. Po kliknięciu Tak, pojawi się okno dialogowe z informacją o liczbie usuniętych arkuszy, kliknij OK aby go zamknąć, a wszystkie puste arkusze zostały w tej chwili usunięte.
Usuń puste arkusze przez Kutools dla programu Excel
W przypadku niektórych zielonych wskazówek programu Excel VBA jest nieco trudną metodą do wykonania, ale z Kutools dla programu Excel'S Usuń puste arkusze funkcja, możesz szybko usunąć wszystkie puste arkusze ze skoroszytu za pomocą trzech kliknięć myszą!
Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. |
Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:
1. Włącz skoroszyt, z którego chcesz usunąć puste arkusze, i kliknij Kutools Plus > Ćwiczenie > Usuń puste arkusze. Zobacz zrzut ekranu:
Względne artykuły:
- Jak liczyć i usuwać duplikaty z listy w programie Excel?
- Jak usunąć ciąg po n-tym znaku w programie Excel?
- Jak usunąć tekst w nawiasach / nawiasach w programie Excel?
- Jak usunąć kształty linii 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!