SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
цитата из данного форума:
Автор: vzbzdnov, Отправлено:07:47 11-01-2007
К вопросу выборки уникальных значений - проще и быстрее всего завести Collection и добавлять элементы по ключу, а потом читать всё подряд
Dim UnqArray As New Collection, rng, val
LastRow = Sheets("Sheet1").Range("A65536").End(xlUp).Row
On Error Resume Next ' позаботимся о dup keys
For Each rng In Sheets("Sheet1").Range("A1:A" & LastRow)
val=rng.value
UnqArray.Add Item:=val, key:=CStr(val) ' dup keys не добавятся
Next rng
For Each val in UnqArray.Item
.....
Next val
|
