Как проверить, пуста ли ячейка через vba?

Чтобы проверить, пуста ли ячейка, вы можете использовать функцию VBA ISEMPTY . В этой функции вам нужно использовать объект диапазона, чтобы указать ячейку, которую вы хотите проверить, и она возвращает true, если эта ячейка пуста, в противном случае — false. Для получения результата вы можете использовать окно сообщения или ячейку.

Используйте VBA, чтобы проверить, пуста ли ячейка

1. Начните с имени функции «IsEmpty».
2. Укажите ячейку, которую хотите проверить.
3. Используйте окно сообщения или ячейку, чтобы получить значение результата.
4. В конце запустите код.

 MsgBox IsEmpty(Range("A1"))

Проверьте, пусты ли несколько ячеек

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

 Sub vba_check_empty_cells() Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange c = c + 1 If IsEmpty(myCell) Then i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "." End Sub

Приведенный выше код проходит через каждую ячейку в диапазоне A1:A10 и проверяет каждую ячейку одну за другой с помощью функции ISEMPTY, пуста она или нет.

И для каждой пустой ячейки он подсчитывает количество и в конце отображает окно сообщения с общим количеством ячеек и пустых ячеек.

Используйте следующий код, если вы также хотите выделить пустые ячейки.

 Dim i As Long Dim c As Long Dim myRange As Range Dim myCell As Range Set myRange = Range("A1:A10") For Each myCell In myRange ' c = c + 1 If IsEmpty(myCell) Then myCell.Interior.Color = RGB(255, 87, 87) i = i + 1 End If Next myCell MsgBox _ "There are total " & i & " empty cell(s) out of " & c & "."