Looping through a column

[Cidolfus]

Hello,

I have a spreadsheet with lots of rows (40000+), and in the 2nd column of this spreadsheet, it consists of an organization's department, so the 2nd column would look something like this:

Sales
Sales
Sales
Finance
Sales
Finance
HR
HR
HR
Sales

etc...

What I'd like is to loop through this column, and be returned with all the departments - Sales, Finance, HR. (Something like dinstinct in PL/SQL)

How can I do something like that?

[Bob Phillips]

Menu Tools>Data>Filter>Advanced Filter and there is an option to list unique.

[Cidolfus]

Hello,

Thank you for your reply.

Is there a way to do this programmatically? As I need to format these data further. The returning of the unique data is just the first step of many to come.

Thank you.

[Bob Phillips]

[vba]

With ActiveSheet

.Range(.Range("B1"), .Range("B1").End(xlDown)).AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=.Range("H1"), _
Unique:=True
End With
[/vba]