excel vba删除重复项并对相应值求和

Question

我找到了这段代码，但我无法让它在我的单元格范围内工作。我的例子如下。 “更正顺序”在 C 列，“数量”在 D 列。我想删除 C 列中的重复项，将 D 列中的相应值相加并粘贴到 F1:G40 范围内。如果我将 col C 复制并粘贴到 Col A，则下面的代码有效，否则它会删除重复项但值都是“0”？？

A   B   C   D
    Corrected Order (LCP)   Qty
    Orange  12
    Pear    9
    Pear    9
    Pear    6
    Orange  6
    Orange  3
    Orange  1
    Apple   34
    Apple   4
    Apple   4
    Apple   67



Option Explicit

Sub main()

With Worksheets("Fruit Stock") '<== change "Fruit Stock" as per your actual sheet name

    With .Range("C1:D40").Resize(.Cells(.Rows.Count, 3).End(xlUp).Row)
        .Copy
        With .Offset(, .Columns.Count + 1)
            .PasteSpecial xlPasteValues ' copy value and formats
            .Columns(2).Offset(1).Resize(.Rows.Count - 1, 1).FormulaR1C1 = "=SUMIF(C1,RC1,C[-" & .Columns.Count + 1 & "])"
            .Value = .Value
            .RemoveDuplicates 1, xlYes
        End With
    End With

End With
End Sub

Answer 1

更正“CX，RCX”，其中 X 是您的列号（对于 C 列，X=3） 还更正了一些绝对地址，这意味着它仅适用于一种情况。特别是调整为 3 列的大小没有意义。

Sub main()

With ActiveSheet '<== change "Fruit Stock" as per your actual sheet name

    With Range("C1:D40")
        Set r = .Resize(.Cells(.Rows.Count, .Columns.Count).End(xlUp).Row)

        With r

            .Copy
            With .Offset(, .Columns.Count + 1)
                .PasteSpecial xlPasteValues ' copy value and formats
                .Columns(2).Offset(1).Resize(.Rows.Count - 1, 1).FormulaR1C1 = "=SUMIF(C" & r.Column & ",RC" & r.Column & ",C[-" & .Columns.Count + 1 & "])"
                .Value = .Value
                .RemoveDuplicates 1, xlYes
            End With

        End With

End With
End With
End Sub