Как сделать чтоб выводило таблицу по кодам товаров с суммой проданного…

[katlis]

Как сделать чтоб выводило таблицу по кодам товаров с суммой проданного… т.е. имеется таблица

№магазина Код товара Количество
магазин2 1002.0008 1
магазин1 1002.0008 15
магазин2 1002.0022 1
магазин1 1002.0022 10

Нужно чтоб результатом было

Код товара Количество
1002.0008 16
1002.0022 11

[IgorGO]

сводная таблица выведет

[Hugo121]

Вот, можно подпилить под Ваш пример:

Sub Otbor()
    Dim a(), oDict As Object, i As Long, temp As String
    
    a = Range("a1:B" & Range("A" & Rows.Count).End(xlUp).Row).Value

    Set oDict = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
        temp = UCase(Trim(a(i, 1)))
        If Not oDict.Exists(temp) Then
            oDict.Add temp, CStr(a(i, 2))
        Else
            oDict.Item(temp) = CStr(--oDict.Item(temp) + a(i, 2))
        End If
    Next

    With ThisWorkbook.Worksheets(1)
        .Range("D1").Resize(oDict.Count) = Application.Transpose(oDict.keys)
        .Range("E1").Resize(oDict.Count) = Application.Transpose(oDict.items)
    End With

End Sub

Хотя вероятно можно с кодом ничего и не делать - просто сперва удалить столбец А

[katlis]

спасибо разобралась!!!

[Hugo121]

Быстро разобрались
Кстати, этот код можно брать за основу для других похожих задач - можно например не суммировать, а считать количество повторов...
У меня штук 6 разных версий в загашнике - основное время потерял, пока нашёл пример именно на эту задачу среди других похожих.