MACRO para eliminar filas

Hola, estoy intentando hacer una macro para que me borre todas las filas si cualquier celda de la columna A no es un número, tiene que borrar las que están en blanco y las que tengan algúna letra. Soy incapaz. ¿Alguien me puede echar una mano?

Muchísimas gracias

1 Respuesta

Respuesta
1

Esta es la macro

Sub eliminar()
'Por.Dante Amor
    For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Cells(i, "A") = "" Or Not IsNumeric(Cells(i, "A")) Then
            Rows(i).Delete
        End If
    Next
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas