Макрос на объединение строк Excel

[Alexsandrr]

Добрый день!
Нужен макрос на объединение (через суммирование) ячеек в столбцах F,G,H,I,J по содержимому в столбцах A,B,C,D и Е.

[Hugo121]

Попробуйте сводную.
Макрос написать можно - но писать много...

P.S. Хотя вот, написал - осталось под рабочий файл подогнать:

Option Explicit

Sub tt()
    Dim a(), i&, ii&, t$, x&
    [a1].Clear
    a = [a2].CurrentRegion.Value

    With CreateObject("Scripting.Dictionary"): .comparemode = 1
        For i = 2 To UBound(a)
            t = a(i, 1) & "|" & a(i, 2) & "|" & a(i, 3) & "|" & a(i, 4) & "|" & a(i, 5)
            If Not .exists(t) Then
                ii = ii + 1: .Item(t) = ii
                For x = 1 To 10: a(ii, x) = a(i, x): Next
            Else
                For x = 6 To 10: a(.Item(t), x) = a(.Item(t), x) + a(i, x): Next
            End If
        Next
    End With

    [a30].Resize(ii, 10) = a

End Sub

[Alexsandrr]

макрос работает, спасибо.