求助一个字典解决若干列求和

手把手学习 · 发表于 2013-1-28 21:48

本帖最后由手把手学习于 2013-1-28 21:51 编辑

一段不错的宏代码帮了我不少的忙。但是现在要增加若干列，求助用一个字典能解决所有列的汇总吗？

条件汇总.rar (11.69 KB, 下载次数: 133)

lzqmsy · 发表于 2013-1-28 22:29

条件汇总.rar (16.77 KB, 下载次数: 167) 你原来的方法完善了,另又做一种,供参考

香川群子 · 发表于 2013-1-28 22:37

楼主你的问题太简单了→幼儿园水平。

直接用=sumif()函数就全部OK啦。

请看附件：

手把手学习 · 发表于 2013-1-28 22:51

香川群子发表于 2013-1-28 22:37
楼主你的问题太简单了→幼儿园水平。

直接用=sumif()函数就全部OK啦。

首先感谢你的回复。是的，我学习宏代码之前一直用函数解决的，问题是我这表有17列、12000行数据需要汇总，sumif()的速度不能和字典法相提并论的，其次是我非常喜欢学习字典法。

zengxp · 发表于 2013-1-28 22:55

呵呵，学习了

香川群子 · 发表于 2013-1-28 22:56

本帖最后由香川群子于 2013-1-28 23:10 编辑

如果楼主想要学习字典用法，那么请看附件：

Private Sub CommandButton1_Click()
arr = [a1].CurrentRegion '获取A1单元格所在区域作为原始数据区域读入数组arr
m = UBound(arr): n = UBound(arr, 2) '获取原始数据区域行、列大小
ReDim brr(1 To m, 1 To n) '重新定义数组brr用来存放结果
Set d = CreateObject("Scripting.Dictionary") '定义字典d用来记录关键词行位置指针
For i = 2 To m '遍历数据有效行
t = d(arr(i, 1)) '用字典查询关键词（数据第1列）是否已经存入字典
If t = "" Then '如果结果为空白，则该关键字尚未加入字典（注意，我没有使用d.Exists(关键词)的做法）
k = k + 1: d(arr(i, 1)) = k: t = k '新的行位置指针值k+1递增（即新添一个单词）、接着把该关键词加入字典、最后对t变量赋值=k指针
brr(k, 1) = arr(i, 1): brr(k, 2) = arr(i, 2) '把这个新单词的第1列、第2列内容写入结果数组
End If
For j = 3 To n '接下来，遍历第3列只到最后，把该关键词对应的统计数据加总到结果数组brr相应的行、列位置。
brr(t, j) = brr(t, j) + arr(i, j) '这里不管开始查询时字典内是否有这个关键词，最后都是以t变量为记录时行位置的指针。
Next
Next
[h1].CurrentRegion.Offset(1) = "" '清空输出结果区域
[h2].Resize(k, n) = brr '输出结果到工作表指定区域
End Sub

复制代码

我的算法是最高效的。没有其它。

按照楼主17列，12000行做了测试，VBA耗时0.2秒。

而sumif公式也是直接秒杀 → 楼主担心使用sumif函数耗时多，有何根据？

条件汇总2.rar (42.48 KB, 下载次数: 524)

香川群子 · 发表于 2013-1-28 22:57

注意，没有必要去定义变量，当然也不用去定义变量类型。

这个是很多VBA教师欺骗初学者的不良习惯。

手把手学习 · 发表于 2013-1-28 23:11

香川群子发表于 2013-1-28 22:57
注意，没有必要去定义变量，当然也不用去定义变量类型。

这个是很多VBA教师欺骗初学者的不良习惯。

这段经典的代码我收藏了。但是，老师能不能根据我的需求，在不改变浅绿色部分的情况下进行汇总呢？关键字不需要全部引用过来的，也就是说根据浅绿色部分的关键字进行汇总。

香川群子 · 发表于 2013-1-28 23:12

字典+数组，是最快速、最高效的处理方法。

好的算法，比所谓养成一个定义变量类型的“好习惯”要有用的多。

手把手学习 · 发表于 2013-1-28 23:14

香川群子发表于 2013-1-28 22:56
如果楼主想要学习字典用法，那么请看附件：我的算法是最高效的。没有其它。

特别感谢老师对这段代码的注释，对我们这些初学者来说是求之不得的事情。

		自动登录	找回密码
密码			免费注册

[已解决] 求助一个字典解决若干列求和