Страницы: 1
RSS
Кол-во уникальных значений в диапазоне
 
Нужно посчитать кол-во уникальных значений в рамках диапазона, скрин с примером - http://joxi.ru/823n4J6I66jeNm
Подскажите, пожалуйста, формулу.
Прикрепил файл примера.
 
UDF
Код
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

Согласие есть продукт при полном непротивлении сторон
 
добрый вечер,например для   первый запрос ,для других запросов аналогично.
Код
=СУММПРОИЗВ(1/СЧЁТЕСЛИ(B1:B5;B1:B5))
 
добавлю,вот файл-пример использования,диапазон чуть другой
 
Продолжил начатое sv2013
Код
=СУММПРОИЗВ(($A$1:$A$16=E2)*(1/СЧЁТЕСЛИ($B$1:$B$16;$B$1:$B$16)))
Изменено: gling - 25.11.2015 19:51:15
 
Спасибо большое, макрос работает как надо.
Последняя формула отказывается работать с большим массивом данных, прикрепил пример
 
Доброе время суток
Вариант на Power Query.
Успехов.
Страницы: 1
Наверх