Порядковое количество уникальных значений в столбце

Пользователь

Сообщений: 130 Регистрация: 07.04.2021

09.09.2021 13:19:55

Добрый день,

Необходимо посчитать количество вхождений значения в столбце и написать справа это число. Код

Код
Sub n() For i = 1 To 10 Cells(i, 2) = Application.WorksheetFunction.CountIf([a1:a10], Cells(i, 1)) Next i End Sub

Считает и выводит количество вхождений, но мне необходим "порядковый счет" одинаковых вхождений (уникальное значение - 1, одно повторение - 2 и так далее ).
Прошу помощи в написании кода.
Заранее спасибо

Андрей VG

Пользователь

Сообщений: 11927 Регистрация: 22.12.2012

Excel 2016, 365

09.09.2021 13:27:58

Доброе время суток.
Вариант.

Код

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

Валерий Кишин Пользователь Сообщений: 130 Регистрация: 07.04.2021	#3 09.09.2021 13:46:56 Андрей VG, то что надо, спасибо