=ЕСЛИОШИБКА(ЗНАЧЕН(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($D4;"/";ПОВТОР(" ";10));10*(СТОЛБЕЦ(A:A)-1)+1;10)));0)

=СУММЕСЛИМН($O$4:$O$24;$A$4:$A$24;$A29)&"/"&СУММЕСЛИМН($P$4:$P$24;$A$4:$A$24;$A29)

=СУММПРОИЗВ(($A$4:$A$24=$A29)*ЕСЛИОШИБКА(--ЛЕВСИМВ($D$4:$D$24;1);0))&"/"&СУММПРОИЗВ(($A$4:$A$24=$A29)*ЕСЛИОШИБКА(--ПРАВСИМВ($D$4:$D$24;1);0))

=SUMPRODUCT(($A$4:$A$24=$A29)*IFERROR(--TRIM(LEFT(SUBSTITUTE($D$4:$D$24;"/";REPT(" ";10));5));0))&"/"&SUMPRODUCT(($A$4:$A$24=$A29)*IFERROR(--TRIM(RIGHT(SUBSTITUTE($D$4:$D$24;"/";REPT(" ";10));5));0))

'v3
Function СУММЕСЛИДРОБЬ(диапазон_суммирования As Range, диапазон_условия As Range, условие As Variant) As String
    Const delimeter = "/"
    
    Dim aSumm As Variant, aCond As Variant
    aSumm = диапазон_суммирования.Value
    aCond = диапазон_условия.Resize(диапазон_суммирования.Rows.Count, диапазон_суммирования.Columns.Count).Value
    
    Dim ya As Long, xa As Long, xb As Long, arr As Variant, brr As Variant
    For ya = 1 To UBound(aSumm, 1)
        For xa = 1 To UBound(aSumm, 2)
            If aCond(ya, xa) = условие Then
                arr = Split(aSumm(ya, xa), delimeter)
                If IsEmpty(brr) Then
                    ReDim brr(LBound(arr) To UBound(arr))
                ElseIf UBound(arr) > UBound(brr) Then
                    ReDim Preserve brr(LBound(brr) To UBound(arr))
                End If
                For xb = LBound(arr) To UBound(arr)
                    If IsNumeric(arr(xb)) Then
                        brr(xb) = CLng(brr(xb)) + CLng(arr(xb))
                    End If
                Next
            End If
        Next
    Next
    СУММЕСЛИДРОБЬ = Join(brr, delimeter)
End Function

=СУММ(ФИЛЬТР.XML("<l><i>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("/";1;ФИЛЬТР($A4:$Y4;$A$3:$Y$3=Z$3;0));"/";"</i><i>")&"</i></l>";"//i[position() mod 2 = 1]"))&"/"&СУММ(ФИЛЬТР.XML("<l><i>"&ПОДСТАВИТЬ(ОБЪЕДИНИТЬ("/";1;ФИЛЬТР($A4:$Y4;$A$3:$Y$3=Z$3;0));"/";"</i><i>")&"</i></l>";"//i[position() mod 2 = 0]"))