Присвоить уникальное значение (макрос в Microsoft Office Excel)

Posted by obzor under VBA

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

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

тема на форуме

Похожие статьи

• Ping из VBA
• Progress bar или индикация выполнения макроса в Microsoft Office Excel
• Запретить ввод пробелов в ячейки Excel
• Массовое переименование label на форме
• Вынести часть текста из многострочной ячейки по условию (Excel)
• Копирование данных в Excel «отталкиваясь» от последней заполненой строки
• Вставка данных в Excel после последней заполненной ячейки
• Как в Excel посчитать количество дней, прошедших с заданного числа
• Копирование данных «отталкиваясь» от последней заполненной строки Excel
• Как вытащить URL адрес из формулы с гиперссылкой в Excel