Добрый день.
Имеется столбец с названиями. Как при помощи макроса посчитать количество уникальных значений в столбце?
Пытался сделать циклом, но ничего не вышло. Неудавшийся цикл ниже, файл во вложении.
Имеется столбец с названиями. Как при помощи макроса посчитать количество уникальных значений в столбце?
Пытался сделать циклом, но ничего не вышло. Неудавшийся цикл ниже, файл во вложении.
Код |
---|
Sub as() Dim a As Long Dim b As Long Dim lastrowdata as long Dim ch As Integer lastrowdata= Cells(Rows.count, 1).End(xlUp).Row ch = 0 For b = 2 To a For a = 2 To lastrowData If b <> a And Cells(a, 4) <> Cells(b, 4) Then ch = ch + 1 Next Next Cells(lastrowData + 1, 4).Value = ch End sub |