excel vba 多列數據求和，要求用VBA字典。

Dim dic, iStr as string

Set dic = CreateObject("Scripting.Dictionary")

With ActiveSheet

For i = 1 To .Range("A65536").End(xlUp).Row

iStr = .Cells(i, 1) & "," & .Cells(i, 2) & "," & .Cells(i, 3)

dic(iStr) = dic(iStr) + Cells(i, 4)

Next

For Each d In dic.keys

n = n + 1

.Cells(n, 6).Resize(1, 3) = Split(d, ",")

Next

.Cells(1, 9).Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.items)

End With

End Sub