Question : Percentage Delete

Hi,

My Col D contains a data series like below. I want to delete the entire row if data found as percentage. Please help.

30,536.25
13.83%
0
0.00%
799,073.98
38.63%

Answer : Percentage Delete

Hello suvmitra,

Assuming your data start in Row 2...

Sub KillThem()
   
    Dim LastR As Long
    Dim Counter As Long
   
    LastR = Cells(Rows.Count, "d").End(xlUp).Row
   
    For Counter = LastR To 2 Step -1
        If InStr(1, Cells(Counter, "d").Text, "%") > 0 Then Rows(Counter).Delete
    Next
   
    MsgBox "Done"
   
End Sub

Regards,

Patrick