excel vba 三列 多項字典法求和匯總

Dim?dic,?arr,?i?As?Long

Set?dic?=?CreateObject("scripting.Dictionary")

arr?=?Cells(1,?1).CurrentRegion

For?i?=?2?To?UBound(arr)

dic(arr(i,?1))?=?dic(arr(i,?1))?+?arr(i,?2)?+?arr(i,?3)?+?arr(i,?4)

Next

Cells(2,?5).Resize(dic.Count,?2)?_

=?WorksheetFunction.Transpose(Array(dic.keys,?dic.items))

End?Sub