Question

excel vba 多列数据求和，要求用VBA字典。

你好，表中有4列内容，A,B,C三列是文本，存在相同项，D列是数据。
要求用VBA字典方法，将数据区域进行合并同类项。谢谢！

Answer 1

Sub 多列相同项累计()
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

Answer 2

数据透视表轻松搞定的功能,不需要VBA字典吧

追问

我在学习VBA，希望能得到你的帮助，谢谢！

Answer 3

唔明，请举例，并举例得出如何的结果

追问

例子请看图片

追答

你这种需求建议你直接使用数据透视表，效率更高更快捷！