So entfernen Sie leere Blätter aus einer Arbeitsmappe

Angenommen, Sie haben eine große Arbeitsmappe mit mehreren Arbeitsblättern, aber es gibt einige leere Arbeitsblätter ohne Inhalt in dieser Arbeitsmappe. Um die Arbeitsmappe professioneller und formeller zu gestalten, möchten Sie diese leeren Blätter aus der Arbeitsmappe entfernen. Anstatt die leeren Blätter einzeln zu entfernen, stelle ich die Methoden vor, um alle leeren Blätter schnell zu entfernen.

Entfernen Sie leere Blätter mit VBA

Entfernen Sie leere Blätter von Kutools for Excel

---

Entfernen Sie leere Blätter mit VBA

Hier stelle ich eine VBA vor, mit der Sie schnell alle leeren Blätter aus einer geöffneten Arbeitsmappe entfernen können.

1. Drücken Sie Alt + F11 zu aktivierende Tasten Microsoft Visual für Basisanwendungen Fenster.

2. Und klicken Sie auf Insert > ModulFügen Sie den folgenden VBA-Code in den neuen Code ein Modul Fenster.

VBA: Leere Blätter entfernen.

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. Und drücken Sie F5 Klicken Sie auf die Taste oder die Schaltfläche Ausführen, um die VBA auszuführen. Ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, ob leere Blätter entfernt werden sollen. Klicken Sie auf Ja weiter entfernen, Nein um diese VBA abzubrechen.

4. Nach dem Klicken JaKlicken Sie auf, um ein Dialogfeld mit der Anzahl der entfernten Blätter anzuzeigen OK um es zu schließen, und alle leeren Blätter wurden in diesem Moment entfernt.

---

Entfernen Sie leere Blätter von Kutools for Excel

Für einige grüne Excel-Hände ist die VBA eine etwas schwierig auszuführende Methode, aber mit Kutools for Excel Leere Arbeitsblätter löschen Mit dieser Funktion können Sie schnell alle leeren Blätter mit drei Mausklicks aus einer Arbeitsmappe entfernen!

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Aktivieren Sie die Arbeitsmappe, deren leere Blätter Sie entfernen möchten, und klicken Sie auf Kutoolen Plus > Arbeitsblatt > Leere Arbeitsblätter löschen. Siehe Screenshot:

 

---

Relative Artikel:

• Wie zähle und entferne ich Duplikate aus einer Liste in Excel?
• Wie lösche ich eine Zeichenfolge nach dem n-ten Zeichen in Excel?
• Wie entferne ich Text in Klammern in Excel?
• Wie entferne ich Linienformen in Excel?

---