Vba: как проверить, пуста ли ячейка (с примерами)

Вы можете использовать следующий базовый синтаксис, чтобы проверить, пуста ли ячейка в VBA:

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = “ Cell is Not Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

В этом конкретном примере проверяется, является ли каждая ячейка в диапазоне A2:A13 пустой, а затем назначается «Ячейка пуста» или «Ячейка не пуста» каждой соответствующей ячейке в диапазоне B2:B13 .

В следующем примере показано, как использовать этот синтаксис на практике.

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

Предположим, у нас есть следующий список названий баскетбольных команд в Excel:

Предположим, мы хотим проверить, пуста ли каждая ячейка в диапазоне A2:A13 , а затем отобразить результаты в соответствующих ячейках диапазона B2:B8 .

Для этого мы можем создать следующий макрос:

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = “ Cell is Not Empty ”
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Столбец B сообщает нам, пуста ли каждая из соответствующих ячеек в столбце A.

Вы также можете использовать следующий макрос, чтобы просто вернуть само название команды в столбце B, если значение не пустое в столбце A:

 SubCheckBlank ()
    Dim i As Integer

    For i = 2 To 13
        If IsEmpty(Range(" A " & i)) Then
        Result = “ Cell is Empty ”
        Else
        Result = Range(" A " & i).Value
        End If
    Range(" B " & i) = Result
    Next i
End Sub

Когда мы запускаем этот макрос, мы получаем следующий вывод:

Столбец B теперь возвращает название команды в столбце A, если ячейка не пуста.

Примечание . Полную документацию по методу VBA IsEmpty можно найти здесь .

Дополнительные ресурсы

В следующих руководствах объясняется, как выполнять другие распространенные задачи в VBA:

VBA: как подсчитать вхождение символов в строку
VBA: как проверить, содержит ли строка другую строку
VBA: формула «Если» ячейка содержит»