Суммирование строк по ключу из двух ячеек

[Hugo121]

Словари-массивы здорово облегчают жизнь...

Option Explicit

Sub tt()
    Dim a(), i&, ii&, t$, x&, y&

    With CreateObject("Scripting.Dictionary"): .comparemode = 1
        a = [a1].CurrentRegion.Value
        For i = 1 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2)
            If Not .exists(t) Then
                ii = ii + 1
                For x = 1 To UBound(a, 2)
                    a(ii, x) = a(i, x)
                Next
                .Item(t) = ii
            Else
                y = .Item(t)
                For x = 3 To UBound(a, 2)
                    a(y, x) = a(y, x) + a(i, x)
                Next
            End If
        Next
    End With

    [n1].Resize(ii, UBound(a, 2)) = a
End Sub