Loop through a range of cells to find unique entries
 

Hello All,
I am trying to loop through a column of cells for all unique entries. I
know how to loop but i don't know how to specify the results of being unique
and adding them to a seperate column can anyone help?

Column A

Test
Test 1
Test 2
Test
Test 1

I want this to appear in column B

Column B
Test
Test 1
Test 2

Thanks everyone

Loop through a range of cells to find unique entries
 

Rather than looping I would use the following code:-

Range("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True

It uses Advanced Filter to copy unque entries to B1.
Play around with this, I think it is far more straightforward,

Somethinglikeant

Loop through a range of cells to find unique entries
 

Thank you very much thats great!!!
"somethinglikeant" wrote in message
oups.com...
Rather than looping I would use the following code:-

Range("A:A").AdvancedFilter Action:=xlFilterCopy,
CopyToRange:=Range("B1" _
), Unique:=True

It uses Advanced Filter to copy unque entries to B1.
Play around with this, I think it is far more straightforward,

Somethinglikeant