Помогите присвоить уникальное значение

[reiner]

Уважаемые профи, помогите никак не соображу, есть два столбца в одном наименования, в другом необходимо присвоить уникальный номер для каждого уникального наименования. Пример приложила

[IgorGO]

в С3

=ЕСЛИ(СЧЁТЕСЛИ($B$1:B3;B3)=1;МАКС($C$1:C2)+1;ИНДЕКС(C:C;ПОИСКПОЗ(B3;B:B;)))

или в любую ячейку, начиная с С2

=ЕСЛИ(СЧЁТЕСЛИ(R1C2:RC[-1];RC[-1])=1;МАКС(R1C3:R[-1]C)+1;ИНДЕКС(C;ПОИСКПОЗ(RC[-1];C[-1];)))

и растянуть на всю колонку

[reiner]

Сообщение от IgorGO

в С3

=ЕСЛИ(СЧЁТЕСЛИ($B$1:B3;B3)=1;МАКС($C$1:C2)+1;ИНДЕКС(C:C;ПОИСКПОЗ(B3;B:B;)))

или в любую ячейку, начиная с С2

=ЕСЛИ(СЧЁТЕСЛИ(R1C2:RC[-1];RC[-1])=1;МАКС(R1C3:R[-1]C)+1;ИНДЕКС(C;ПОИСКПОЗ(RC[-1];C[-1];)))

и растянуть на всю колонку

Игорь, вы мой герой! Спасибо Вам!

[svsh2016]

вариант макроса,кнопки test и очистка

Sub test()
    Dim z, i&
    z = Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row).Value
    With CreateObject("scripting.dictionary"): .CompareMode = 1
        For i = 1 To UBound(z)
            If Not .exists(z(i, 1)) Then .Item(z(i, 1)) = 0: .Item(z(i, 1)) = .Count
        Next
        For i = 1 To UBound(z): Range("C" & i + 2) = .Item(z(i, 1)): Next
    End With
End Sub

[reiner]

Спасибо большое!