Як швидко перевірити, чи аркуш порожній в Excel?

Якщо у величезній книзі є кілька порожніх аркушів, як можна швидко перевірити, чи аркуш порожній у книзі, а потім видалити їх? В Excel є вбудована функція, яка визначає, чи аркуш порожній чи ні, але тут я представляю вам код VBA, щоб перевірити, чи аркуш порожній.

Перевірте, чи аркуш порожній за допомогою VBA

Перевірте, чи аркуш порожній за допомогою VBA

Щоб перевірити, чи аркуш порожній, ви можете скористатися кодом макросу нижче, щоб швидко визначити, чи аркуш порожній.

1. Увімкніть аркуш, який потрібно перевірити, чи порожній, натисніть Alt + F11 ключ для відкриття Microsoft Visual Basic для додатків вікно та натисніть Insert > Модулі створити новий Модулі.

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