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