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

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

--
Regards,
Tom Ogilvy


"(E-Mail Removed)" wrote:

> 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
>
>