Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подсчет количества уникальных по условию
 
#1
29.09.2021 12:16:45
Добрый день!
Подскажите как можно реализовать подсчет количества уникальных значений по условию.
Подробнее то так:
Имеем условие Группа 1, в таблице есть столбец с группами и с данными (Т1, Т2, и т.д) хочу получить количество Т1, Т2 используемые в группе 1
 
 
 
#2
29.09.2021 12:27:33
для excel 365:
=ЧСТРОК(УНИК(ФИЛЬТР(A2:C8;A2:A8=F13)))
Изменено: Бахтиёр - 29.09.2021 12:28:12
 
 
 
#3
29.09.2021 14:11:05
Вариант:
Код
=СУММПРОИЗВ((A$2:A$8=ЛЕВСИМВ(F13;ДЛСТР($F$13)-1))*($C$2:$C$8="Т1")/СЧЁТЕСЛИМН(A$2:A$8;A$2:A$8;C$2:C$8;C$2:C$8))

Или для массива условий, в том числе и Т2, когда оно появится в примере))
Код
=СУММПРОИЗВ((A$2:A$8=ЛЕВСИМВ(F13;ДЛСТР($F$13)-1))*($C$2:$C$8=$E$2:$F$2)/СЧЁТЕСЛИМН(A$2:A$8;A$2:A$8;C$2:C$8;C$2:C$8))
 
 
 
#4
29.09.2021 14:36:29
memo, Возможно я не точно пояснил как хотелось бы чтобы система считала.
Если взять для примера Группа 1, в столбце "С", под группой 1 у нас есть Т1 и Т3, получается два значения, вот именно цифру 2 хотелось бы чтобы он выводил.
Может это удобнее через VBA?
 
 
 
#5
29.09.2021 14:47:52
Цитата
Денис Ш. написал:
под группой 1 у нас есть Т1 и Т3, получается два значения,
Так в чем проблема, я же во второй формуле явно указал диапазон для условий E2:F2 - прописываете туда нужные Т и будет вам подсчет.
Изменено: memo - 29.09.2021 14:48:18
 
 
 
#6
29.09.2021 15:01:21
Цитата
Денис Ш. написал:
через VBA?
Код
Sub mrshkei()
Dim arr, arr2, i As Long, lr As Long, col As New Collection, col2 As New Collection
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A2:C" & lr)
For i = LBound(arr) To UBound(arr)
    On Error Resume Next
    col.Add arr(i, 1), arr(i, 1)
    col2.Add arr(i, 1) & "/\/\" & arr(i, 3), arr(i, 1) & "/\/\" & arr(i, 3)
Next i
For i = 1 To col.Count
Cells(i + 1, 5) = col(i)
    For n = 1 To col2.Count
        If InStr(col2(n), col(i)) > 0 Then x = x + 1
    Next n
    Cells(i + 1, 6) = x
    x = 0
Next i
End Sub
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#7
29.09.2021 15:22:31
Mershik,то что нужно, огромное спасибо. Только вопрос, можно сделать так чтобы пустые не считал?
 
 
 
#8
29.09.2021 15:23:26
Денис Ш., что пустые?
Код
Sub mrshkei()
Dim arr, arr2, arr3, i As Long, lr As Long, col As New Collection, col2 As New Collection
lr = Cells(Rows.Count, 1).End(xlUp).Row
arr = Range("A2:C" & lr)
For i = LBound(arr) To UBound(arr)
    On Error Resume Next
    col.Add arr(i, 1), arr(i, 1)
    col2.Add arr(i, 1) & "/\/\" & arr(i, 3), arr(i, 1) & "/\/\" & arr(i, 3)
Next i
For i = 1 To col.Count
Cells(i + 1, 5) = col(i)
    For n = 1 To col2.Count
    arr3 = Split(col2(n), "/\/\")
        If arr3(0) = col(i) And arr3(1) <> "" Then x = x + 1
    Next n
    Cells(i + 1, 6) = x
    x = 0
Next i
End Sub
Изменено: Mershik - 29.09.2021 15:58:41
Не бойтесь совершенства. Вам его не достичь.
 
 
 
#9
30.09.2021 12:20:32
Mershik,спасибо большое за помощь, как раз то что надо!
 
 
 
Страницы: 1
Наверх