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

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

Проверка, пуст ли лист, с помощью VBA

Проверка, пуст ли лист, с помощью VBA

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

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

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, чтобы запустить код, после чего появится диалоговое окно, которое сообщит вам, пуст ли лист или нет.

ИЛИ