Не работает подсчет уникальных значений

[kuklp]

Public Function CountUnique&(r As Range)
    Dim x, v: x = r
    With CreateObject("scripting.dictionary")
        For Each v In x: .Item(v) = "": Next
        CountUnique = .Count
    End With
End Function

Или:

Public Function CountUnique&(r As Range)
    Dim x, v: x = r: On Error Resume Next
    With New Collection
        For Each v In x: .Add v, CStr(v): Next
        CountUnique = .Count
    End With
End Function

[AllenJ]

kuklp, спасибо, но я не совсем понимаю как этим пользоваться.

Вообще я совсем запутался, СЧЁТЕСЛИ - работает, СУММ - работает, ЧАСТОТА - не работает.

Вот прикреплен файл, помогите пожалуйста сделать так, чтобы все работало, в ячейке J11 дожна отображаться цифра кол-ва уникальных значений. Т.е. B11:F11 сравнивается с массивом B14:F22 - на выходе J11. При этом формат массива должен быть текстовый. (Еще раз, работают все формулы, кроме частота).

Спасибо!

[kuklp]

как этим пользоваться.

[AllenJ]

Спасибо, земляк

Но вы видемо не так поняли, в примере вашем пишет цифру 3, а должно быть два. B11:F11 сравнивается с массивом B14:F22, если есть в массиве такие цифры как в B11:F11, то только их должно считать. (Не все их, а по одном разу какждое число в массиве, но только если оно есть в B11:F11).

[kuklp]

Это Вы видимо не поняли. В В14 у Вас текст, а все остальные десятки - число. А это разные вещи.
Впишите в свободную ячейку формулу: =B14=B15 и убедитесь.

B11:F11 сравнивается с массивом B14:F22

об этом Вы написали уже после того как я выложил функцию. В топике речь шла о

подсчет уникальных значений

. Вот я и отвечал на вопрос топика. Т.е. Вам сразу надо было подумать о правильной формулировке вопроса.

[AllenJ]

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

Это Вы видимо не поняли. В В14 у Вас текст, а все остальные десятки - число. А это разные вещи.

Да. Но при этом СУММ, СУММПРОИЗВ и др. работают, кроме ЧАСТОТА.

[kuklp]

А я при чем? Тема: "Не работает подсчет уникальных значений". У меня работает. А о формулах листа я вообще ни словом не обмолвился. Я не формулист:-)