Как быстро проверить, пустой ли лист в Excel?

Если в огромной книге есть пустые листы, как можно быстро проверить, пуст ли лист в книге, а затем удалить его? В Excel есть встроенная функция для определения, пуст лист или нет, но здесь я представляю вам код VBA для проверки, пуст ли лист.

Проверьте, пуст ли лист с VBA

Проверьте, пуст ли лист с VBA

Чтобы проверить, пуст ли лист, вы можете использовать приведенный ниже код макроса, чтобы быстро определить, пуст ли лист.

1. Включите лист, который вы хотите проверить, если он пуст, нажмите Alt + F11 ключ для открытия Microsoft Visual Basic для приложений окно и щелкните Вставить > Модули для создания нового Модули.

2. В пустой скрипт вставьте в него код макроса ниже. Смотрите скриншот:

VBA: проверьте, пуст ли лист

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. Сохраните код и нажмите F5 нажмите клавишу для запуска кода, и появится диалоговое окно, сообщающее, пуст лист или нет.

OR