Keep duplicates but delete unique rows

Hello.

I've seen variations of this post, but the macros/solutions provided did not work for me.

I have a large email distribution list and need to delete the unique rows while keeping duplicates (see sample attached). I'm looking for a macro to run (or any other efficient solution) as I've been manually editing these lists.

Any help would be greatly appreciated. Thank you.

Adam

Try this.

In E1 paste

=A1&B1&C1&D1

and in F1 paste

=COUNTIF(E:E,E1)

Copy both formulae down the list.

Then delete the rows containing 1 in column F (by filtering or sorting).