Как проверить, пуста ли ячейка или диапазон нескольких ячеек с помощью Excel VBA?

Сегодня мы узнаем, как легко проверить, пуста ли одна или несколько ячеек, используя Visual Basic для приложений. Содержимое актуально для Excel 2019/365, 2016 и более ранних версий Microsoft Office.

Подготовительная работа

Прежде чем приступить к написанию кода с помощью VBA в Excel, вам необходимо убедиться, что вкладка «Разработка» включена. Если это не так, пожалуйста, изучите этот краткий учебник.

Проверка того, пуст ли диапазон ячеек Excel с помощью VBA

1. В Excel откройте среду Visual Basic, нажав Alt+F11.
2. Вставьте следующий код в качестве процедуры в свой рабочий лист или, альтернативно, в специальный модуль VBA.

Sub Check_Cell_is_empty_alt()
Dim rng As Range
Set rng = Selection
For Each Cell In rng
    If IsEmpty(Cell.Value) = True Then
        Debug.Print ("Empty")
    Else
        Debug.Print ("Not Empty")
    End If
Next Cell
End Sub

3. Перейдите в свою электронную таблицу и выберите произвольный диапазон ячеек.
4. Вернитесь в редактор Visual Basic и убедитесь, что средство просмотра Immediate Viewer (CTRL+G) видно, так как метод Debug.Print в коде выведет результат в это окно.
5. Нажмите F5, чтобы запустить код.
6. Посмотрите на результаты в ближайшем окне.

• Все пустые ячейки будут идентифицированы.

Возможные расширения кода

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

Проверка непустых полей

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

If Not IsEmpty(Cell.Value) = True Then
    Debug.Print ("Not Empty")
Else
    Debug.Print ("Empty")
End If

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 "Всего " & i & " пустые ячейки из " & c & "."