Нужно посчитать кол-во уникальных значений в рамках диапазона, скрин с примером - http://joxi.ru/823n4J6I66jeNm Подскажите, пожалуйста, формулу. Прикрепил файл примера.
Function СЧЁТУНИКЕСЛИ(rng1 As Range, rng2 As Range, kr As Variant) As Double
'аргументы:
'rng1 - диапазон отбора уникальных значений, обязательный
'rng2 - диапазон условий, обязательный
'kr - условие (критерий), обязательный
СЧЁТУНИКЕСЛИ = 0
On Error Resume Next
With New Collection
For Each cl In rng1
If Cells(cl.Row, rng2.Column) Like kr Then
.Add cl, CStr(cl)
If Err = 0 Then
СЧЁТУНИКЕСЛИ = СЧЁТУНИКЕСЛИ + 1
Else
Err.Clear
End If
End If
Next
End With
End Function