Extract unique values from filtered column

Hi all

The following works to extract unique values from a column.

But, it does not work for a filtered column. I need to filter a column then get only the remaining unique values.

Can someone suggest how to make this work please.

Please Login or Register  to view this content.

Cheers

i like to use .autofilter, then you can filter (A) and get unique values with:

Sheets(sheet1).Range("A1:A" & last).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("BB1"), Unique:=True

The line also copies the unique list to another range(BB)

Thanks for the reply.

I needed the range to go into an array.

I was thinking I could select a complete range of just visible cells, but it seems not to work like that. so I used the dictionary loop to do it. then this is returned to the function.

This is what I did.

Maybe it might help someone.

Please Login or Register  to view this content.