перебрать все значения автофильтра

[Bape}l{ka]

подскажите пожалуйста, вроде был какой-то способ перебрать все значения самого автофильтра (т.е. то, что у него в выпадающем списке)
или может не перебрать, а просто скопировать весь этот список?

а то у меня получается только сами отфильтрованные строки перебрать Т_Т

вот мой код:

Dim iCell As Range, iFilterRange As Range, i As Integer
i = 0
    FirstCol = Selection.Column

With ThisWorkbook.Worksheets(TableSheet_)
     If .AutoFilterMode = True And .FilterMode = True Then
        With .AutoFilter.Range.Columns(FirstCol)
             Set iFilterRange = _
                .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible)
             For Each iCell In iFilterRange
                     i = i + 1
                    Worksheets(ListName_).Cells(i, 1) = iCell
                    'MsgBox iCell.Value
               Next
        End With
        .ShowAllData 'Отобразить всё - необязательно
     End If
End With

а мне надо, чтоб не было повторов и все отсортированно..
можно все это конечно вручную прописать, но нет ли какой-нибудь уже готовой операции?

[Hugo121]

У меня готового примера под рукой нет, но я бы сделал так - диапазон разом в массив, массив перебором в словарь (или коллекцию), keys словаря разом в массив, его на сортировку. Или сразу keys на сортировку, на выходе массив, не суть...
Получаем отсортированный массив с уникальными значениями, который можно вывалить например в комбобокс - где-то буквально вчера видел...

Вот, вспомнил:
http://www.planetaexcel.ru/forum.php?thread_id=28877

Хотя там без словаря, т.к. исходные значения уникальны.

[EducatedFool]

http://excelvba.ru/code/UniqueValues
http://excelvba.ru/code/UniqueValuesFromArray

Ссылку на макрос сортировки вам уже дали.

[Bape}l{ka]

спасибо большое за примеры))))