Macros para contar celdas en blanco o con datos

Contar el número de celdas en blanco en un rango seleccionado

(Se usa la propiedad Application.WorksheetFunction.CountBlank(Selection)para llamar desde Visual Basic funciones Excel)

Tabla original de datos

Excel tabla de trabajo


Sub ContarCeldasBlanco()
'Cuenta el número de celdas en blanco en un rango dado
Dim n As Integer

    n = Application.WorksheetFunction.CountBlank(Selection)
    MsgBox n & " celdas en blanco"

End Sub

Tabla mostrando el resultado obtenido con el procedimiento

Excel contar celdas en blanco


Contar el número de celdas que contienen datos

(Cuenta las celdas no vacías en un rango dado)

Sub ContarCeldas()
'Cuenta el número de celdas que contienen datos (números o etiquetas)
Dim n As Integer

    n = Application.WorksheetFunction.CountA(Selection)
     MsgBox n & " celdas que contienen datos"
End Sub