Страницы: 1
RSS
Порядковое количество уникальных значений в столбце
 
Добрый день,

Необходимо посчитать количество вхождений значения в столбце и написать справа это число. Код
Код
Sub n()
For i = 1 To 10
Cells(i, 2) = Application.WorksheetFunction.CountIf([a1:a10], Cells(i, 1))
Next i
End Sub

Считает и выводит количество вхождений, но мне необходим "порядковый счет" одинаковых вхождений (уникальное значение - 1, одно повторение - 2 и так далее ).
Прошу помощи в написании кода.
Заранее спасибо
 
Доброе время суток.
Вариант.
Код
Sub n()
Dim pDict As Object, i As Long
Set pDict = CreateObject("Scripting.Dictionary")
For i = 1 To 10
pDict(Cells(i, 1).Value) = pDict(Cells(i, 1).Value) + 1
Cells(i, 2) = pDict(Cells(i, 1).Value)
Next i
End Sub
 
Андрей VG, то что надо, спасибо
Страницы: 1
Читают тему (гостей: 1)
Наверх