5,139
社区成员
发帖
与我相关
我的任务
分享
Sub ek_sky()
Dim arr As Variant
Dim brr As Variant
Dim dis As Object
Dim i As Long
Dim j As Long
Set dis = CreateObject("scripting.dictionary")
arr = Range("A2:B" & Cells(Rows.Count, 1).End(xlUp).Row)
ReDim brr(1 To UBound(arr), 1 To 2)
For i = 1 To UBound(arr)
If Not dis.exists(arr(i, 1)) Then
j = j + 1
dis.Add arr(i, 1), j
brr(j, 1) = arr(i, 1): brr(j, 2) = arr(i, 2)
Else
brr(dis(arr(i, 1)), 2) = brr(dis(arr(i, 1)), 2) + arr(i, 2)
End If
Next i
Range("F2").Resize(j, 2) = brr
End Sub