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

[Евгений_S]

Формулами я пробовал, не получилось. В программировании ни бум-бум, уверен, что вопрос решабельный написанием макроса.

[Hugo121]

Посмотрите
http://www.excelworld.ru/forum/2-75-1

[Czeslaw]

Можно приписать в соседний стобец по единице в каждую строку и консолидировать.

[Watcher_1]

Вот держите такой вариант
http://excel4you.ru/kollekciya-s-sch...ublikatov.html
Тока совсем чутка надо допилить под себя...

[Hugo121]

Watcher_1, а с коллекцией интересно. Но на словаре проще и прозрачней:

Sub tt()
    Dim i As Long, t As String, k
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 1 To [a1].End(xlDown).Row
            t = Cells(i, 1): .Item(t) = .Item(t) + 1
        Next

        For Each k In .keys
            Debug.Print k & "/" & .Item(k)
        Next
    End With
End Sub

Если перебирать массив, а не ячейки - будет быстрее.

[IgorGO]

Тока совсем чутка надо допилить под себя...

главное только определиться какой нужен напильник - с правой или левой резьбой
а то используя не правильный напильник Вы только убьете время и еще испортите заготовку

[Hugo121]

Массивная UDF в файле.
Вводить сразу в весь диапазон как формулу массива Ctrl+Shift+Enter

[Евгений_S]

Всем спасибо за участие в решение моей проблемы! Большое и отдельное спасибо Hugo121, Ваш вариант оптимально мне подошел! Все работает!

[Watcher_1]

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

Watcher_1, а с коллекцией интересно. Но на словаре проще и прозрачней:

Sub tt()
    Dim i As Long, t As String, k
    With CreateObject("scripting.dictionary"): .comparemode = 1
        For i = 1 To [a1].End(xlDown).Row
            t = Cells(i, 1): .Item(t) = .Item(t) + 1
        Next

        For Each k In .keys
            Debug.Print k & "/" & .Item(k)
        Next
    End With
End Sub

Если перебирать массив, а не ячейки - будет быстрее.

Согласен. Просто что было уже готово то и предложил...

[Hugo121]

Я Ваш пример сохранил - всёж родной компонент... А то словари бывает что и не работают...
Может пригодиться.