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

[xamillion]

Помогите, пожалуйста, посчитать количество ассортимента товаров по условию встречался ли он ранее в столбце "B" при условии что значение в столбце "U" пустое (товар есть).
Голову сломал и циклами, потом коллекцией пробовал, запутался и уже совсем расстроился что самому сделать не получается, теперь прошу помощи у Вас!

Sub coll()

 '   Dim MyCollection As New Collection, i As Long

    j = 2
    While Not IsEmpty(Sheets("RRO").Cells(j, 2).Value)
        If Sheets("RRR").Cells(j, "U").Value = "" Then ' если пусто - товар есть
 '           MyCollection.Add Item:=Sheets("RRR").Cells(j, "B").Value
 
 ' Здесь нужно определить встечалось ли значения (код товара)
 '  в Sheets("RRR").Cells(j, "B").Value ранее и прибавить в tov
 '  т.е. считаются уникальніе коды товаров для определения
 '  количества ассортимента товара
     tov = tov + 1
            
        End If

        j = j + 1

    Wend
End Sub

[IgorGO]

if worksheetfunction.countif(range(cells(2,2), cells(j,2)), cells(j,2))=1 then tov = tov+1

[xamillion]

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

if worksheetfunction.countif(range(cells(2,2), cells(j,2)), cells(j,2))=1 then tov = tov+1

спасибо... так у меня получилось...
но тут без условия (значение в столбце "U" пустое), т.е. уникальная запись выбирается в строках с пустыми ячейками в столбце "U",
а так получается он смотрит во всех ячейках - в этом то и сложность...

[IgorGO]

if worksheetfunction.SUMPRODUCT((range(cells(2,2), cells(j,2)) = cells(j,2))_
*(range(cells(2,2), cells(j,2)) = ""))=1 then tov = tov+1

[xamillion]

пишет ошибку -Type mismatch... подумал, что в описании диапазона чего-то не так... пробовал даже так...

      If Application.Evaluate("SUMPRODUCT((" & Range(Cells(2, 2), Cells(j, 2)).Address = Cells(j, 2) & ")*(" & Range(Cells(2, "U"), Cells(j, "U")).Address = "" & "))" = 1) Then
           tov = tov + 1

Может чего попроще есть? Не было интернета... как без кислорода... Удастся попробую файл прикрепить...
P.S. за СУММПРОИЗВ спасибо - функция огонь, только разобраться до конца нужно... буду крутить...

[Hugo121]

Если в коллекцию добавляете без ключа - оно примет всех! Т.е. со всеми повторами, так уникальных не посчитаете. Добавляйте с ключём, отключив ошибки.
А я обычно словарь использую, типа так:

Sub coll()

    Dim j As Long, tov As Long

    With CreateObject("scripting.dictionary"): .comparemode = 1

        j = 2
        While Not IsEmpty(Sheets("RRO").Cells(j, 2).Value)
            If Sheets("RRR").Cells(j, "U").Value = "" Then .Item(Sheets("RRR").Cells(j, "B").Value) = 0&
            j = j + 1
        Wend
        tov = .Count

    End With

    MsgBox tov
End Sub

Это если не на Маке.

[xamillion]

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

Если в коллекцию добавляете без ключа - оно примет всех! Т.е. со всеми повторами, так уникальных не посчитаете. Добавляйте с ключём, отключив ошибки.
А я обычно словарь использую, типа так:
...
Это если не на Маке.

Hugo121 спасибо, работает.
IgorGO прав, но перефразирую немного: Программисты - это люди, решающие проблемы, о существовании которых многие и не подозревали (а некоторые даже и создавали), бесконечным количеством методов, которых Вы не понимаете (а некоторым и не дано)...
стремлюсь к пониманию... спасибо за поддержку в стремлениях абсолютно незнакомым юзерам (от лица всех юзверей форума)
с SUMPRODUCT тоже хочу разобраться, разберусь - отпишусь, может кому и пригодиться...