Нахождение всех уникальных значений из списка

[Lame]

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

Я решил эту задачку с сортирвкой, как это сделать без сортирвки, не пойму ?


Спасибо.

[Pavel55]

С помощью Расширенного фильтра:

1) Выделяете все значения
2) меню Данные - Фильтр - Расширенный фильтр...
3) В появившемся окне внизу ставите галочку "Только уникальные записи" и вверху "Скопировать результат в другое место"
4) в третьем текстовом поле "Поместить результат в диапазон:" выбираете любую ячейку на листе
5) ОК

[Lame]

Спасибо Вам.

Я забыл пояснить, что делаю это в VBA. Соответственно не могу найти такое решение в VBA

[Pavel55]

Очень просто )
1) Включаете запись макроса (Сервис - Макрос - Начать запись)
2) Проделываете всю операцию руками (смотрите мой предыдуший пост)
3) Останавливаете макрос и нажимаете ALT+F11
4) Изучаете полученный код )

У меня получился такой )

Код: Выделить всё

Sub Макрос1()
    Range("A1:A20").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("G1"), Unique:=True
End Sub

[Lame]

Действительно....не догадался)

Спасибо