Function iferror(ByVal Value, Optional ByVal AltValue)
If IsError(Value) Then
    iferror = AltValue
Else
    iferror = Value
End If
End Function

Function СЧЕТУНИКЕСЛИМН(rngU As Range, ParamArray Conditions()) As Long
'rngU - диапазон поиска уникальных значений, обязательный
'Conditions() - массив ПАР значений вида: Диапазон_Условий1;Условие1;Диапазон_Условий2;Условие2...Диапазон_УсловийN;УсловиеN, обязательный
'               должен иметь хотя-бы одну пару значений.
'Все диапазоны должны состоять из одного столбца и иметь равное кол-во строк
Dim cl()
Dim arrFlag() As Boolean
Dim I&, J&
Dim rngCond()
On Error Resume Next
cl = rngU.Value
With CreateObject("Scripting.Dictionary")
    For I = 1 To UBound(cl)
        ReDim arrFlag(Int(UBound(Conditions) / 2))
        For J = LBound(Conditions) To UBound(Conditions) Step 2
            If IsObject(Conditions(J)) Then rngCond = Conditions(J).Value
            If IsNumeric(rngCond(I, 1)) Then
                If Application.Evaluate(Replace(rngCond(I, 1), ",", ".") & Conditions(J + 1)) Then arrFlag(Int(J / 2)) = True
            Else
                If rngCond(I, 1) Like Conditions(J + 1) Then arrFlag(Int(J / 2)) = True
            End If
        Next
        If WorksheetFunction.And(arrFlag) = True Then
            .Add CStr(cl(I, 1)), cl(I, 1)
            If Err = 0 Then
                СЧЕТУНИКЕСЛИМН = СЧЕТУНИКЕСЛИМН + 1
            Else
                Err.Clear
            End If
        End If
    Next
End With
End Function