Как пофильтровать в памяти?

[klaus]

Собственно надо взять с первой колонки все уникальные значения, но...
Есть фрагмент кода, который все что есть в этой колонке заносит в массив:
KolCells = .Cells(1, 1).End(xlDown).Row
KolID = KolCells
ReDim ID(KolCells)
For ICells = 1 To KolCells
ID(ICells) = .Cells(ICells, 1)

Но в этой колонке много повторяющихся значений, а мне надо чтобы занесло только уникальные. Кто может помочь?

[Алексей++]

сортировка по возрастанию поможет ?

[klaus]

Не, менять в ячейках нельзя - поэтому все надо в памяти

[klaus]

Как-то вот так, но чтобы работало:

    .Cells(1, 1).Select
    Selection.Insert Shift:=xlDown
    .Cells(1, 1).Select
    ActiveCell.FormulaR1C1 = ?
    .Select
    .AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    .Cells(1, 1).Select
    Selection.Delete Shift:=xlUp
KolCells = .Cells(1, 1).End(xlDown).Row
KolID = KolCells
ReDim ID(KolCells)
For ICells = 1 To KolCells
ID(ICells) = .Cells(ICells, 1)
    ActiveSheet.ShowAllData

[Алексей++]

klaus, а зачем менять в ячейках ? Создай массив из элементов, содержащих id и адрес ячейки. Сортируешь массив, потом сканируешь его - повторные id отметаешь, а по адресам вынимаешь данные

[HandKot]

   

Код:

 Dim ws As Worksheet
    Dim r As Range
    Dim ID() As String
    
    Set ws = ThisWorkbook.Worksheets(2)
    
    kolcells = ThisWorkbook.Worksheets(2).Cells(1, 1).End(xlDown).Row
    
    'оставляем только уникальные значения
    Set r = ws.Range("A1:A" + CStr(kolcells))
    r.AdvancedFilter Action:=xlFilterInPlace, Unique:=True

    'кидаем в массив
    ICells = 1
    ReDim ID(kolcells)
    For Each rw In r.Rows
        If Not rw.Hidden Then
            Debug.Print rw.Cells(1).Text
            ID(ICells) = rw.Cells(1).Text
            ICells = ICells + 1
        End If
    Next
    
    For ICells = 1 To kolcells
        Debug.Print ID(ICells)
    Next
    
    'убираем филтр
    ws.ShowAllData

[HandKot]

кстати, если при накладывании фильтра указать параметр CopyToRange
то и лишних проверок можно избежать

[klaus]

Чего-то не пошло, и даже не пойму в каком месте, говорит Run-time error '6': Overflow, а чего Overflow, не знаю. Вот собственно все вместе - исходник, куда вставить фильтр надо - там RED.txt с описанием. http://garden.gov.ua/failo/xls.rar

[klaus]

Спасибо, разобрался, все работает.  )