Перебор ячеек столбца и формирование нового листа из уникальных записей

[Ad1r]

Привет всем!
Столкнулся с задачей, что необходимо перебрать значения ячеек (фразы) одного столбца и сформировать новый лист состоящий только из не повторяющихся записей.

я придерживаюсь следующего алгоритма:
1. перебираем поочередно каждую ячейку (выполняем цикл до строки с содержанием end_of_column)
2. делаем проверку на наличие точно такой же ячейки на втором листе
2.1 дозаписываем в конец второго листа, если совпадения не найдено
2.2 берем следующую ячейку с первого листа
3. повторяем п. 2

подскажите пожалуйста как это можно реализовать?

пока у меня получилось пробежаться по всем ячейкам, вот так:

Sub lalala()
Dim s As String
s = 0 'строка

Do While Cells(i, 2) <> "end_of_column"
   s = Cells(i, 2)
             'куда то сюда нужно вставить проверку из пункта 2
             'которая пропустит или вставит  значение s на новый лист
   i = i + 1
Loop
End Sub

[alex77755]

А стадндартные методы не катят?
Ну там фильтр, только уникальные...

[Ad1r]

Пробовал, не катит, записей больше 8000 штук

[Ad1r]

интересно получилось) в 2007 версии есть отдельная кнопка - "Удалить дубликаты" - справилась отлично, всем спасибо.