Eliminar filas que no contengan numero
Me puedes ayudar con una macro que elimine las filas de la columna A que no contengan numero o que contengan texto
Ejemplo que de estos caracteres
Empres
Planta
report
-------
Fecha
-------
Vendedor
--------
4123
4137
4163
4165
Solo deje las filas que contengan
4123
4137
4163
4165
Ejemplo que de estos caracteres
Empres
Planta
report
-------
Fecha
-------
Vendedor
--------
4123
4137
4163
4165
Solo deje las filas que contengan
4123
4137
4163
4165
Respuesta de antares18
1
Sub borrar_colA()
'
' borrar_colA Macro
'
Dim i As Integer
i = 1
While (Range("A" + CStr(i)).Value <> "")
Range("A" + CStr(i)).Select
If Not (WorksheetFunction.IsNumber(Range("A" + CStr(i)).Value)) Then
Range("A" + CStr(i)).Delete
End If
i = i + 1
Wend
'
End Sub
'
' borrar_colA Macro
'
Dim i As Integer
i = 1
While (Range("A" + CStr(i)).Value <> "")
Range("A" + CStr(i)).Select
If Not (WorksheetFunction.IsNumber(Range("A" + CStr(i)).Value)) Then
Range("A" + CStr(i)).Delete
End If
i = i + 1
Wend
'
End Sub
