Como verificar se uma célula está vazia via vba?

Para verificar se uma célula está vazia, você pode usar a função ISEMPTY do VBA . Nesta função, você precisa usar o objeto range para especificar a célula que deseja verificar e retorna verdadeiro se a célula estiver vazia, caso contrário, falso. Você pode usar uma caixa de mensagem ou uma célula para obter o resultado.

Use VBA para verificar se uma célula está vazia

1. Comece com o nome da função “IsEmpty”.
2. Especifique a célula que deseja verificar.
3. Use uma caixa de mensagem ou célula para obter o valor do resultado.
4. No final, execute o código.

 MsgBox IsEmpty(Range("A1"))

Verifique se várias células estão vazias

Se você deseja verificar e contar células vazias em um intervalo quando precisar iterar em cada célula do intervalo.

 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

O código acima passa por cada célula do intervalo A1:A10 e verifica cada célula, uma por uma, usando a função ISEMPTY, esteja ela vazia ou não.

E para cada célula vazia é feita uma contagem e, ao final, exibe uma caixa de mensagem com o número total de células e células vazias.

Use o código a seguir se também quiser destacar células vazias.

 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 & "."