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 VBA

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ą!

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?

---