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: формула для «Якщо» клітинка містить»