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!
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der 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?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!