¿cómo comprobar si una celda está vacía mediante vba?

Para comprobar si una celda está vacía, puede utilizar la función ISEMPTY de VBA . En esta función, debe usar el objeto de rango para especificar la celda que desea verificar y devuelve verdadero si esa celda está vacía; de lo contrario, devuelve falso. Puede utilizar un cuadro de mensaje o utilizar una celda para obtener el resultado.

Utilice VBA para comprobar si una celda está vacía

1. Comience con el nombre de la función «IsEmpty».
2. Especifique la celda que desea verificar.
3. Utilice un cuadro de mensaje o una celda para obtener el valor del resultado.
4. Al final, ejecute el código.

 MsgBox IsEmpty(Range("A1"))

Compruebe si varias celdas están vacías

Si desea verificar y contar celdas vacías en un rango, cuando necesite iterar sobre cada celda del rango.

 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

El código anterior recorre cada celda en el rango A1:A10 y verifica cada celda una por una usando la función ISEMPTY, ya sea que esté vacía o no.

Y para cada celda vacía, realiza un recuento y, al final, muestra un cuadro de mensaje con el número total de celdas y celdas vacías.

Utilice el siguiente código si también desea resaltar celdas vacías.

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