I have to run a report showing customer names, addresses and email addresses. Many times customers have the same email address as some other customer. I need to: Sort the first worksheet (call it "Email1") by email address; Add a formula in the column next to the email column: "=IF(O2=O3, "Dup", "OK")" which tests to see if there are any duplicate email addresses in column O; Move all the fields of the rows showing "Dup" to a new worksheet (call it "Email2"); Delete the Dup rows in Email1; Now I continue the same way with the worksheet Email2; I continue this way until the last worksheet has no duplicates email addresses in it. Can someone please help me come up with some code to automate this process?

If you would like to post, please check out the MrExcel Message Board FAQ and register here. If you forgot your password, you can reset your password.

VBA code to create move duplicate email adresses to new worksheet

Thread starter Euler271
Start date Apr 1, 2019
Tags

addresses column dup email worksheet

Euler271

New Member

Apr 1, 2019

I have to run a report showing customer names, addresses and email addresses. Many times customers have the same email address as some other customer. I need to:

Sort the first worksheet (call it "Email1") by email address;
Add a formula in the column next to the email column: "=IF(O2=O3, "Dup", "OK")" which tests to see if there are any duplicate email addresses in column O;
Move all the fields of the rows showing "Dup" to a new worksheet (call it "Email2");
Delete the Dup rows in Email1;
Now I continue the same way with the worksheet Email2;
I continue this way until the last worksheet has no duplicates email addresses in it.

Can someone please help me come up with some code to automate this process?