Eliminar filas que no contengan valor numer

Buen día
Me puedes ayudar por favor con una macro que vaya a todas las celdas A A1, A2 etc y elimine toda la fila en caso de no ser valor numérico
Ejemplo si a1 es igual a FKFBF eliminar esa fila y así todas ya que los formatos que quiero depurar son indefinidos
Saludos

1 respuesta

Respuesta
1
Prueba esta macro y cuéntame como te fue.
Sub eliminar()
'''''''''''''''
celda = "A1" '<---cambia esta celda por la celda en que
''''''''''''''''''empieza la columna donde se buscara
f1 = Range(celda).Row
f2 = Range(celda).End(xlDown).Row
While f1 <= f2
    If IsNumeric(Cells(f1, Range(celda).Column).Value) = False Then
        Rows(f1).Delete
        f1 = Range(celda).Row
    Else: f1 = f1 + 1
    End If
Wend
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas