Это все или еще что-нибудь нужно?

Смысл есть - т.к. чтоб отобрать уникальные, без словаря придётся делать не один проход по 9000, а 9000.  
Или иначе говоря, не 9000 сравнений, а грубо 9000*9000 (ну можно конечно втрой цикл всё время сокращать... но не суть).  
Насчёт одномерного массива сомневаюсь...  
 
Давайте пример в файле (можно не 9000 строк, а 90, чтоб размер соблюсти).  
Ну и подробно пример того, что нужно получить - а то пока неоднозначно всё...

Юрий М, понимаете, это же только частичка большого макроса будет. Поэтому мне нужно понять как работает, номера мне будет достаточно. Дальше я уже сам.  
 
nerv, это всё.  
 
Прикладываю пример.

{quote}{login=Hugo}{date=26.06.2012 11:05}{thema=}{post} без словаря придётся делать не один проход по 9000, а 9000.{/post}{/quote}Игорь, почему?  
Sub qqq()  
Dim Uniq As New Collection, LastRow As Long, i As Long, a()  
LastRow = Cells(Rows.Count, 1).End(xlUp).Row  
a = Range(Cells(2, 1), Cells(LastRow, 1)).Value  
   For i = 1 To UBound(a, 1)  
       On Error Resume Next  
       Uniq.Add a(i, 1), CStr(a(i, 1))  
   Next  
MsgBox Uniq.Count  
End Sub

{quote}{login=petrov77}{date=26.06.2012 11:32}{thema=}{post}1)..все столбцы будут заняты....  
2)  ..то что в A:A находится, этого в рабочем листе не будет - содержание массива.{/post}{/quote}1). Если все столбцы заняты, то куда выводить №?  
2). А массив откуда берется?  
 
Почему № начинаются с "2"?

Т.Е. массива, как такового, в реале нет, есть только виртуальный? Что тогда дадут номера на листе?

Вот так попробуйте:  
 
Sub ert()  
Dim x, i&, s$  
x = Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value  
On Error Resume Next  
With New Collection  
   For i = 2 To UBound(x)  
       s = x(i, 1)  
       If IsEmpty(.Item(s)) Then  
           x(i, 1) = i: .Add 1, s  
       Else  
           x(i, 1) = vbNullString  
       End If  
   Next i  
End With  
Range("E1").Resize(i - 1).Value = x  
End Sub  
 
PS С куками на форуме еще не скоро решится?

Юрий М, да, как раз ковыряю.  
Просто не успеваю отвечать. работать и ковырять :) стараюсь, приоритетнее отвечать на вопросы. Извините.  
 
Михаил С., для визуального изучения работы. потом это все будет в своем массиве, что тоже будет обрабатываться.  
 
 
P.S. пошел смотреть все примеры. скоро отпишусь.

{quote}{login=Юрий М}{date=26.06.2012 11:28}{thema=Re: }{post}{quote}{login=Hugo}{date=26.06.2012 11:05}{thema=}{post} без словаря придётся делать не один проход по 9000, а 9000.{/post}{/quote}Игорь, почему?  
Sub qqq()  
Dim Uniq As New Collection, LastRow As Long, i As Long, a()  
...  
End Sub{/post}{/quote}  
зануда... :)

У меня tt тоже стащили...  
Или это я сперва у кого-то спёр? :)  
 
P.S. Если кто не понял про зануду - в данном случае что словарь, что коллекция - те же яйца... :)

{quote}{login=слэн}{date=26.06.2012 02:43}{thema=}{post}зато осталось RRR  :) и звучит!{/post}{/quote}Ещё как звучит - устрашающе! :-)

Юрий М, подскажите по своему макросу.  
как я понимаю - a - диапазон ячеек с которыми будем работать.  
 
Не могу допетреть как написать, чтобы a ссылался на массив допустим b (2 to lastrow) либо на значение двух ячеек типа Range("A"&i).value & Range("B"&i).value. Данные для отбора уникальных в оригинале же в массиве лежат.  
 
Похоже коллекции для меня пока сложно. :-D

Михаил С., я как ученик учусь еще у вас всех. Пример который я пока разбираю - первый, от Юрия М. Так вот. Я почти разобрался в нем, и начал его модифицировать, чтобы до конца вникнуть в синтаксис и столкнулся с проблемой.  
Юрий берет диапазон с листа(переменная 'а') и с ним работает. Т.к. у меня будет виртуальный массив, я попытался подставить его вместо диапазона ячеек. у меня не получилось.  
Потом попробовал(чего я так же раньше не делал) подставить диапазон склеенных ячеек. т.е. типа такого, - Range("A2:A"&lastrow).Value & Range("E2:E"&lastrow).Value, что тоже не получилось.  
Как выбирать уникальные с диапазона на листе я понял, а из вирт.массива пока не могу понять.  
 
> И, опять же вывод - на лист или достаточно в массив..  
пока на лист, если выводить на лист, то в массив потом легко будет запихнуть.  
На лист потому, что пока разбираюсь, его дебажить проще, видно, что не так сразу.

И кстати у Юрия "a" - это как раз уже виртуальный массив, а не диапазон листа.