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

你好,表中有4列内容,A,B,C三列是文本,存在相同项,D列是数据。要求用VBA字典方法,将数据区域进行合并同类项。谢谢!... 你好,表中有4列内容,A,B,C三列是文本,存在相同项,D列是数据。
要求用VBA字典方法,将数据区域进行合并同类项。谢谢!
展开
 我来答
2724421
2012-10-28 · TA获得超过2493个赞
知道大有可为答主
回答量:1551
采纳率:71%
帮助的人:949万
展开全部
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
来自:求助得到的回答
本回答被提问者和网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
朱仕平
2012-10-27 · 知道合伙人软件行家
朱仕平
知道合伙人软件行家
采纳数:7872 获赞数:29183
15年质量管理经验, 5年EXCEL培训经验, 目前专职EXCEL网络教育和企业培训

向TA提问 私信TA
展开全部
数据透视表轻松搞定的功能,不需要VBA字典吧
追问
我在学习VBA,希望能得到你的帮助,谢谢!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
hszcb2007
2012-10-27 · 超过23用户采纳过TA的回答
知道答主
回答量:65
采纳率:0%
帮助的人:35.1万
展开全部
唔明,请举例,并举例得出如何的结果
追问

例子请看图片

追答
你这种需求建议你直接使用数据透视表,效率更高更快捷!
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式