delete row countif result

[vincentwady]

Dear all,

I have a huge data in my excel I need to delete, I have an identify
formula, countif, for the data in column B. I wish to delete the
repeat one, and the result in countif would be larger than 0. How I
can write a vba code to delete the result in column A large than 0?

thanks

Vincent

 

[Guest]

Sub ABC()
Dim lastrow as Long, i as Long
lastrow = cells(rows.count,1).End(xlup).row
for i = lastrow to 1 step -1
if isnumeric(cells(i,1)) then
if cells(i,1) > 0 then
rows(i).Delete
end if
end if
Next