=МАКС(ЕСЛИОШИБКА($G$2:$G$12/((B2>$G$2:$G$12)*(A2=$F$2:$F$12));""))

=МИН(ЕСЛИОШИБКА($G$2:$G$12/((B2>$G$2:$G$12)*(A2=$F$2:$F$12));""))

Function какаятотамфункция(rng1 As Range, rng2 As Range)
    Dim arr1, arr2, n As Integer, srzn As Double, tmp1 As Double, tmp2 As Double
    arr1 = rng1.Value:    arr2 = rng2.Value
    srzn = Application.AverageIf(rng2, ">0")
    For n = 1 To UBound(arr1)
        If arr1(n, 1) + arr2(n, 1) = 0 Then tmp1 = 0 Else tmp1 = arr2(n, 1)
        If tmp1 = 0 Then tmp1 = 1 Else tmp1 = Abs((arr1(n, 1) - arr2(n, 1)) / arr2(n, 1))
        If arr2(n, 1) = 0 Then tmp2 = tmp1 * srzn + tmp2 Else tmp2 = tmp1 * arr2(n, 1) + tmp2
    Next
    какаятотамфункция = tmp2 / (Application.Sum(rng2) + Application.CountIf(rng2, 0) * srzn)
End Function

let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    nm1 = Table.RenameColumns(Источник,{{Table.ColumnNames(Источник){0}, "clmn"}}),
    zag1 = List.Zip({Table.ColumnNames(nm1), List.Repeat({type text}, List.Count(Table.ColumnNames(nm1)))}),
    typ1 = Table.TransformColumnTypes(nm1, zag1),
    tab1 = Table.SelectRows(typ1, each ([clmn] = "1")),
    delClmn1 = Table.RemoveColumns(tab1,{"clmn"}),
    lst1 = List.Combine(Table.ToColumns(delClmn1)),
    tab2 = Table.SelectRows(typ1, each ([clmn] = null)),
    delClmn2 = Table.RemoveColumns(tab2,{"clmn"}),
    tran = Table.Transpose(delClmn2),
    nm2 = Table.RenameColumns(tran,{{Table.ColumnNames(tran){0}, "clmn"}}),
    zag2 = List.Zip({Table.ColumnNames(nm2), List.Repeat({type text}, List.Count(Table.ColumnNames(nm2)))}),
    typ2 = Table.TransformColumnTypes(nm2, zag2),
    flt = Table.SelectRows(typ2, each ([clmn] = "1")),
    delClmn3 = Table.RemoveColumns(flt,{"clmn"}),
    lst2 = List.Combine({lst1, List.Combine(Table.ToColumns(delClmn3))}),
    lst3 = List.Combine(List.Transform(lst2, each Text.Split(_, ", "))),
    tab3 = Table.FromList(lst3, Splitter.SplitByNothing(), null, null, ExtraValues.Error),
    grup = Table.Group(tab3, {"Column1"}, {{"Количество", each Table.RowCount(_), Int64.Type}}),
    sort = Table.Sort(grup,{{"Количество", Order.Ascending}})
in
    sort

=ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(", ";1;$B$2:$B$100);", ";"</s><s>")&"</s></t>";"//s[not(preceding::*=.)]")

=СУММПРОИЗВ((ФИЛЬТР.XML("<t><s>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ(", ";1;$B$2:$B$100);", ";"</s><s>")&"</s></t>";"//s")=AB3)*1)

=СЧЁТЕСЛИ($A$2:A2;A2)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("E:G")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If IsNumeric(Target) Then Target = Format(Target, "#0")
    Application.EnableEvents = True
End Sub

Sub Макрос1()
    arr = Selection
    For n = 1 To UBound(arr)
        For m = 1 To UBound(arr, 2)
            If IsNumeric(arr(n, m)) Then arr(n, m) = "=ROUNDUP(" & Replace(arr(n, m), ",", ".") & ",0)"
        Next
    Next
    Selection.FormulaR1C1 = arr
End Sub

=СУММ(ЕСЛИОШИБКА(ПОИСКПОЗ($B$2:$B$11;ФИЛЬТР.XML("<j><i>"&ПОДСТАВИТЬ(G2;"; ";"</i><i>")&"</i></j>";"//i");0)>0;0)*$C$2:$C$11)