Help: Суммирование данных по строкам

[beginer_1]

Нужно в excel-таблице такого,например, вида:

наимен. количество
наимен1 10
наимен2 6
наимен1 6
наимен1 2
наимен2 8

вычислить сумму по всем одинаковым наименованиям. Строк может быть сколько угодно, одинаковых наименований - тоже, наименования заранее не известны.
Задача проще некуда - но туплю((( HELP please!

[corgi]

Код: Выделить всё

Sub dd()
Dim nazv() As String, sum()  As Integer
Dim i As Integer, j As Integer
ReDim Preserve nazv(0), sum(0)
i = 1: j = 1
Do While Sheets(1).Cells(i, "A").Value <> ""
    For j = 1 To UBound(nazv)
        If Sheets(1).Cells(i, "A") = nazv(j) Then
             sum(j) = sum(j) + CInt(Sheets(1).Cells(i, "B").Value)
             j = -1
             Exit For
        End If
    Next
    If j <> -1 Then
        ReDim Preserve nazv(UBound(nazv) + 1), sum(UBound(sum) + 1)
        nazv(UBound(nazv)) = Sheets(1).Cells(i, "A").Value
        sum(UBound(sum)) = Sheets(1).Cells(i, "B").Value
    End If
    i = i + 1
Loop

For j = 1 To UBound(nazv)
    Sheets(1).Cells(j, "d") = nazv(j)
    Sheets(1).Cells(j, "e") = sum(j)
Next
End Sub

проще некуда

[beginer_1]

Сыпасибо! Щас попробую