請教如何..取同姓名和加總成交金...感謝

　頭銜: 麻辣路人甲

2012龍年全勤獎章熱烈參與勳章

2^# 跳轉到 »

發表於 2012-6-21 11:49 | 只看該作者

回復 1# alims

字典標準用法

Sub XX()
Dim Ar(), d As Object
Set d = CreateObject("scripting.dictionary")
Ar = Range("A1:C" & [C2].End(xlDown).Row)
For i = 1 To UBound(Ar)
If Not d.exists(Ar(i, 2)) Then d.Add Ar(i, 2), Ar(i, 3) Else d(Ar(i, 2)) = d(Ar(i, 2)) + Ar(i, 3)
Next i
[E:F] = ""
[E1].Resize(d.Count, 1) = Application.Transpose(d.keys)
[F1].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub

複製代碼

靜思自在 : 不要小看自己，因為人有無限的可能。