Removing Duplicates VBA Not Optimized

Hello, new to Macros here. I have a simple spreadsheet of contacts with column headers such as name, email, company, etc.

I am trying to write a simple script that will look for duplicate email addresses (which are in column 3) and delete one of the duplicate rows. My code seems to work, but I need to run it like 5x to fully clean the list for some reason. It should be able to remove all duplicates in one run. Any help is greatly appreciated.

Sub DuplicateRemove()

Dim i As Integer

For i = 1 To 400
    For j = i + 1 To 400
        If Worksheets("Sheet1").Cells(i, 3).Value = Worksheets("Sheet1").Cells(j, 3).Value Then Rows(j).EntireRow.Delete
    Next j
Next i

End Sub

You have to remove rows from bottom to top. You can also remove duplicates like this

Sub VenA()
  Sheets("Sheet1").Cells(1).CurrentRegion.RemoveDuplicates 3, xlYes
End Sub

Only works if the data starts in A1 and the email address is in column C. Otherwise just post the file.

Hello Superchew,

You can do it with 1 line of code. Change the range and columns to suit:

ActiveSheet.Range("$A$1:$D$200").RemoveDuplicates Columns:=4, Header:=xlNo

Columns is the column to check for duplicates within your range.

Hope this helps!

Moderator Edit: Please remember to use Code Tags. I have added them today.

@achammar, See #2 and the email addresses are in column C (3)

@superechew

Code Tags Added
Your post does not comply with Rule 2 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found at http://www.excelforum.com/forum-rule...rum-rules.html



(I have added them for you today. Please take a few minutes to read all Forum Rules and comply in the future.)