Добавление проверки столбца в функцию уникального значения

Question

У меня есть эта функция, которую я использую для обхода диапазона и подсчета количества уникальных значений:

    Function CountUniqueValues(InputRange As Range) As Long
       Dim cl As Range, UniqueValues As New Collection
       Application.Volatile
       On Error Resume Next
       For Each cl In InputRange
            UniqueValues.Add cl.Value, CStr(cl.Value) 
       Next cl
       On Error GoTo 0
       CountUniqueValues = UniqueValues.Count
    End Function

   CountUniqueValues(Range("B1:B100"))

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

If A1 = "P" Then
   UniqueValues.Add cl.Value, CStr(cl.Value)
End If

Очевидно, что col A придется увеличивать, как это делает col B.Есть идеи?

Answer 1

Использование:

If Range("A" & c1.Row) = "P" Then