Суммирование строк с одинаковыми названиями продуктов, но разными значениями Excel vba

Question

Я пытаюсь суммировать эти значения И это то, что происходит после запуска макроса.
У меня проблема со следующей проблемой, я пытаюсь создать макрос для объединения соответствующих значений в столбце A, а затем СУММИТЬ значения в столбце B.

Я пыталсяследующий код, который удаляет дубликаты в столбце A, но ничего или почти ничего не делает со столбцом B.

Sub RemoveDupsAndSumUp()
    Application.ScreenUpdating = False
        Columns("A:A").Copy
        Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Range("$C:$C").RemoveDuplicates Columns:=1, Header:=xlNo
        Range("D1").FormulaR1C1 = "=SUMIF(C[-3],RC[-1],C[-2])"
        Range("D1").AutoFill Destination:=Range("D1:D" & Range("C" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
    Application.ScreenUpdating = True
    End Sub

Answer 1

Похоже, вы пытаетесь суммировать текст.

Answer 2

Приведенный ниже код работал для меня довольно хорошо, создавая то, что предназначено:

Sub TestMe()

    With ActiveSheet
        .Columns("C:D").ClearContents
        .Columns("A:A").Copy

        .Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
        Application.CutCopyMode = False
        .Range("$C:$C").RemoveDuplicates Columns:=1, Header:=xlNo
        .Range("D1").FormulaR1C1 = "=SUMIF(C[-3],RC[-1],C[-2])"
        .Range("D1").AutoFill Destination:=Range("D1:D" & Range("C" & Rows.Count).End(xlUp).Row), Type:=xlFillDefault
    End With

End Sub