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.

Please Login or Register  to view this content.

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

Please Login or Register  to view this content.

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:

Please Login or Register  to view this content.

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]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/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.)