List 'unique' duplicates on other sheet

Hi all,

I'm still new to VBA. Often it seems like the easy things are the hardest.

Im trying to figure out how to get a unique list of values that are duplicates in a certain column, and list these on another sheet.
I can find allot of solutions to remove them, but not to extract them.

Lets say:

Sheet1 Column A has duplicates, i want to loop through the column and check if value is duplicate, if yes then copy value to Sheet 2 in column A. So i get a unique list with values that are duplicates on Sheet1 Column A

Sheet1 Column A Sheet2 Column A
100 101
101 103
102
103
104
105
103
106
101
103
107

Originally Posted by kev_

One way to get the list without VBA
If data starts in cell A2
Try this in B2 and copy down

Formula:

=IF(COUNTIF(A$2:A2,A2)=2,A2,"")

Thanks Kev,

This can do the job for me :D