recorrer columna

[hugo180486]

Celda

No
No

no
No

No

Código vb:

Dim lRowFin     As Long
    Dim lCont_No    As Long
    Dim lCont_Vacio As Long
    Dim i           As Long
    
    '// Checamos cual es el ultimo renglon
    lRowFin = Range("A65536").End(xlUp).Row
    
    '// Recorremos todos los registros o los renglones de la columna
    '// Suponiendo que los se comienze en el registro 2
    For i = 2 To lRowFin
        If Cells(i, 1).Value = "" Then
            lCont_Vacio = lCont_Vacio + 1
        ElseIf UCase$(Cells(i, 1).Value) = "NO" Then
            lCont_No = lCont_No + 1
        End If
    Next
    
    '// Mostramos los resultados
    MsgBox "Hay " & lCont_Vacio & " registros vacios.", vbInformation, "Registros"
    MsgBox "Hay " & lCont_No & " registros con la palabra no.", vbInformation, "Registros"
 

Haber si es eso lo que quieres, comentas....