Доброго времени суток, друзья. Так как тем особо нет - решил что-бы не скучать по чуть-чуть влезть в коллекции. Нашел рабочий макрос (прилагаю) разобрал его, но остался черный участок, а именно почему при добавлении объекта в коллекцию используя CStr(cell.Value) выводит список уникальных без него полный список ??
Код
Sub unik()
Dim cell As Range, rng As Range
Dim Kolekciya_unik As New Collection
Set rng = Range("A2:A500")
On Error Resume Next
For Each cell In rng
If Not IsEmpty(cell) Then Kolekciya_unik.Add cell.Value, CStr(cell.Value)
Next cell
For i = 1 To Kolekciya_unik.Count
Cells(i, 3) = Kolekciya_unik(i)
Next i
End Sub
If Not IsEmpty(cell) Then Kolekciya_unik.Add cell.Value
Второй параметр при добавлении в коллекцию - это ключ, он должен быть уникальным. Если пытаемся добавить элемент с уже имеющимся ключом, возникнет ошибка, которая в приложенном коде игнорируется и элемент (который не уникальный) не добавляется. Если второй параметр не используется, никакой ошибки не возникает и элемент добавляется,