'如果需要效率可以用这方法,每秒处理10w条数据应该没有问题
Option Explicit
Sub abc()
Dim a, i, d
a = [a1].CurrentRegion.Resize(, 2).Value
Set d = CreateObject("scripting.dictionary")
For i = 1 To UBound(a)
d(a(i, 1)) = d(a(i, 1)) + a(i, 2)
Next
[e1].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub