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

　頭銜: 麻辣路人甲

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

1^# 跳轉到 »

發表於 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

複製代碼

　頭銜: 麻辣路人甲

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

2^#

發表於 2012-6-21 17:28 | 顯示全部帖子

回復 3# alims

小計(姓名欄位要先排序)

靜思自在 : 犯錯出懺悔心，才能清淨無煩惱。