Суммы одинаковых предметов в таблице

Question

В таблице Excel я хотел бы суммировать те же самые элементы путем кумуляции Как на следующем рисунке. [для более чем двух строк] Я хотел бы взять значения для других столбцов из первого местоположения строки, в которой найден элемент

Answer 1

Решение 1 - формулы :

Для статьи 1:

=SUMIF($A$8:$A$21,"=Article 1",$B$8:$B$21)

Для статьи 2:

=SUMIF($A$8:$A$21,"=Article 2",$B$8:$B$21)

Решение2 - Сводная таблица ", как предлагается Pᴇʜ

1. Назовите три столбца: Первый столбец:" Заголовок "Второй:" Значение "Третий:" Налог "
2. Выберите диапазонс данными (A7: C21). Убедитесь, что вы также выбрали заголовки.
3. Вставка - сводная таблица - ОК
4. Перетащите «Значение» и «Налог» в поле «Значения» и «Название» вПоле строк

Данные

Результаты

Answer 2

Использование сводной таблицы

• Выберите ваши данные
• Нажмите Вставить ›Сводная таблица
• Отметьте оба поля «Артикул» и «Номер»

Answer 3

Поскольку в этом вопросе есть тег vba , словарь сценариев делает довольно быстрое суммирование.

Option Explicit

Sub SumArticles()

    Dim i As Long, arr As Variant, dic As Object

    'set up a dictionary object
    Set dic = CreateObject("scripting.dictionary")

    'work with Sheet1
    With Worksheets("sheet1")

        'collect values from worksheet
        arr = .Range(.Cells(8, "A"), .Cells(.Rows.Count, "B").End(xlUp)).Value2

        'loop through array, summing to dictionary items
        For i = LBound(arr, 1) To UBound(arr, 1)
            'shorthand overwrite dictionary add method
            dic.Item(arr(i, 1)) = dic.Item(arr(i, 1)) + arr(i, 2)
        Next i

        'put dictionary keys and items back on worksheet
        .Cells(8, "E").Resize(dic.Count, 1) = Application.Transpose(dic.keys)
        .Cells(8, "F").Resize(dic.Count, 1) = Application.Transpose(dic.items)

    End With

End Sub