Need macro to find duplicates and delete based on criteria

[dmaner]

Hello,

I have looked but cannot find a macro that will find duplicates in column A, then of these duplicates delete the row(s) leaving one row where column B is the smallest integer.

Sample data:

Column A Column B
abc@gmail.com 1
def@gmail.com 18
dflkj@gmail.com 12
abc@gmail.com 9
abc@gmail.com 5

The macro would need to delete rows 4 and 5.

Thanks in advance!

[lucky027]

Could try this code ?

Code: Select all

Sub dmaner_code()
Dim lastrow
lastrow = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To lastrow
If WorksheetFunction.CountIf(Range("A1:A" & I), Range("A" & I)) > 1 Then
Rows(I).Delete
I = I - 1
End If
Next
End Sub

hope that helps
Have a nice day

[dmaner]

Thank you so much, that works perfectly!