如何根据条件进行数据累加

吉児

如图，如果账号和姓名都重复，就将金额进行累加，并删除重复项，左边是原始数据，右边是我想要的结果，如小红的金额，需要显示=80+40

大灰狼1976

去重复加总，我一般用字典。

xuemei0216

Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")
Dim arr, brr, i&, s$
arr = [a1].CurrentRegion          '数据源
For i = 1 To UBound(arr)           '含标题
    s = arr(i, 1) & "|" & arr(i, 3)        '条件
    If Not d.Exists(s) Then
        ReDim brr(1 To 3)
        brr(1) = arr(i, 1)
        brr(2) = "=" & arr(i, 2)
        brr(3) = arr(i, 3)
    Else
        brr = d(s)
        brr(2) = brr(2) & "+" & arr(i, 2)
    End If
    d(s) = brr
Next
''生成位置
With [e1]
    .CurrentRegion.Clear       '清除内容
    .Resize(d.Count, UBound(brr)) = Application.Transpose(Application.Transpose(d.items))
    .Offset(0, 1) = arr(1, 2)
End With
Set d = Nothing
End Sub

吉児

xuemei0216 发表于 2019-10-14 12:10
Sub a()
Dim d As Object
Set d = CreateObject("Scripting.Dictionary")

可能我没描述清楚，就是能不能直接改变左边数据变成右边的结果？

吉児

大灰狼1976 发表于 2019-10-14 11:58
去重复加总，我一般用字典。

字典是什么

ykqrs

吉児 发表于 2019-10-14 13:14
可能我没描述清楚，就是能不能直接改变左边数据变成右边的结果？

With [e1]改成
with[a1]

吉児

ykqrs 发表于 2019-10-14 13:43
With [e1]改成
with[a1]

谢谢