Wie kann man schnell überprüfen, ob ein Blatt in Excel leer ist?

Wenn es in einer großen Arbeitsmappe einige leere Blätter gibt, wie können Sie dann schnell überprüfen, ob ein Blatt in der Arbeitsmappe leer ist und es anschließend löschen? In Excel gibt es eine integrierte Funktion, um zu bestimmen, ob ein Blatt leer ist oder nicht, aber hier stelle ich Ihnen einen VBA-Code vor, mit dem Sie überprüfen können, ob ein Blatt leer ist.

Überprüfen Sie mit VBA, ob ein Blatt leer ist

Überprüfen Sie mit VBA, ob ein Blatt leer ist

Um zu überprüfen, ob ein Blatt leer ist, können Sie das folgende Makro verwenden, um schnell festzustellen, ob ein Blatt leer ist.

1. Aktivieren Sie das Blatt, das Sie überprüfen möchten, ob es leer ist, und drücken Sie Alt + F11 um zu öffnen Microsoft Visual Basic for Applications Fenster, und klicken Sie auf Einfügen > Modul um ein neues Modul.

2. Fügen Sie in das leere Skript den folgenden Makrocode ein. Siehe Screenshot:

VBA: Überprüfen Sie, ob ein Blatt leer ist

Sub CheckSheetEmpty()
'UpdatebyExtendoffice20170830
    If WorksheetFunction.CountA(ActiveSheet.UsedRange) = 0 And ActiveSheet.Shapes.Count = 0 Then
        MsgBox "Sheet is empty", vbInformation, "KuTools For Excel"
    Else
        MsgBox "Sheet is not empty", vbInformation, "KuTools For Excel"
    End If
End Sub

3. Speichern Sie den Code und drücken Sie die F5-Taste, um den Code auszuführen, und ein Dialogfeld wird angezeigt, um Sie darüber zu informieren, ob das Blatt leer ist oder nicht.

ODER