excel - 如何将 vba 用于 sumif 功能（数据整合）？

Question

嗨，我有一个这样的数据集：

    A  B
    a  2
    b  1
    c  3
    a  1
    b  2

我想要删除重复项的 D 和 E 列的合并数据。下面的例子。

   Eg. 
    D  E
    a  3
    b  3
    c  3

我已经想出删除重复的部分。但我仍然坚持整合。我认为使用 Sumif 可以解决问题。但我不确定这是最好的解决方案。有人可以帮我吗？提前致谢。

Answer 1

在我看来，使用已实现的功能肯定是最好的解决方案。

所以：

Sub Consolidate()

 With ActiveSheet

  .Columns("A:B").Copy Destination:=.Columns("D:E")
  .Columns("D:E").RemoveDuplicates Columns:=1, Header:=xlNo
  lLastRow = .Columns("D").Cells(.Rows.Count, 1).End(xlUp).Row
  .Range("E1:E" & lLastRow).FormulaR1C1 = "=SUMIF(C[-4],RC[-1],C[-3])"

 End With

End Sub

或者只是使用Consolidate

Sub Consolidate2()

 With ActiveSheet

  .Range("D1").Consolidate Sources:="C1:C2", Function:=xlSum, _
        TopRow:=False, LeftColumn:=True, CreateLinks:=False

 End With

End Sub

请注意，Sources:="C1:C2"以 R1C1 表示法给出。所以它意味着 Column1 到 Column2。