Здравствуйте. Если надо просто убрать из выходного массива номера уникальных элементов, то, кмк, это можно сделать так:
Но после прочтения окончательной "хотелки" создается впечатление, что вы излишне что-то наворачиваете. Если нужны уникальные значения - так не нужен тогда второй массив - вот мы в коллекцию Uniq запихнули все уникальные элементы из первого массива - вот вам и их перечень, вот по каждому элементу коллекции Uniq и делайте, что нужно.
| Код |
|---|
Sub qqq() Dim Uniq As New Collection, LastRow As Long, i As Long, j As Long, iValue, Arr(), Arr2(), x LastRow = Cells(Rows.Count, 1).End(xlUp).Row Arr = Range(Cells(2, 1), Cells(LastRow, 1)).Value For i = 1 To UBound(Arr, 1) On Error Resume Next Uniq.Add Arr(i, 1), CStr(Arr(i, 1)) Next ReDim Arr2(1 To Uniq.Count, 1 To 1) x = 1 For i = 1 To Uniq.Count iValue = Uniq(i) For j = 1 To UBound(Arr, 1) If Arr(j, 1) = iValue Then Arr2(x, 1) = iValue ' Arr2(x, 2) = i '+ 1 x = x + 1 Exit For End If Next Next [E2].Resize(x - 1, 1) = Arr2 End Sub |
Но после прочтения окончательной "хотелки" создается впечатление, что вы излишне что-то наворачиваете. Если нужны уникальные значения - так не нужен тогда второй массив - вот мы в коллекцию Uniq запихнули все уникальные элементы из первого массива - вот вам и их перечень, вот по каждому элементу коллекции Uniq и делайте, что нужно.
Кому решение нужно - тот пример и рисует.
