delete a row if the column contains a non numeric value

[pals70423]

Hi all,
I am creating a macro to check if a column A has non numeric value and if it they are present then the macro need to remove the non numeric rows.

could any one kindly help on the same.

 

[VoG]

Try

Sub test()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If Not IsNumeric(Range("A" & i).Value) Then Rows(i).Delete
Next i
End Sub

 

[JamesW]

Hi there,

Try:

Sub test()
    lRow = Range("A65536").End(xlUp).Row
    For i = lRow To 1 Step -1
        If Not IsNumeric(Cells(i, 1)) Then Cells(i, 1).EntireRow.Delete
    Next
End Sub

Edit: Added Not IsNumeric - Read OP wrong.

 

[pals70423]

HI,
Thanks a lot..both the script worked perfectly