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

香川群子

手把手学习 发表于 2013-1-28 23:11
这段经典的代码我收藏了。但是，老师能不能根据我的需求，在不改变浅绿色部分的情况下进行汇总呢？关键字 ...

没完全明白你的意思。

是否是这样子：

你的浅绿色部分关键词，是已经确定好顺序的，不希望被字典算法改变其原有顺序？

…………
如果是这样，也很简单，加一段代码，在检查原始数据之前，
首先按你定好的顺序把关键词直接加入字典，然后再按这个顺序检查、整理数据即可。

或者，每次运行完词典、输出数据后，再做一次排序即可。

手把手学习

香川群子 发表于 2013-1-28 23:12
字典+数组，是最快速、最高效的处理方法。

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

香川老师对这段代码的注释远远超越代码的实质，以后碰到类似的表格稍作修改就可以使用了。真的十分感谢！！！

手把手学习

香川群子 发表于 2013-1-28 23:28
没完全明白你的意思。

是否是这样子：

是这样的，因为有部分关健字的数据不需要汇总到这个表中，绿色部分的关健字我自已确定，也就是用sumif()一样

香川群子

那就这样修改：

1. Private Sub CommandButton1_Click()
   
2.    
   
3.     arr = [a1].CurrentRegion '获取A1单元格所在区域作为原始数据区域读入数组arr
   
4.     m = UBound(arr): n = UBound(arr, 2) '获取原始数据区域行、列大小
   
5. 
   
6.    brr = [aa1].CurrentRegion '获取包含浅绿色关键词单元格所在区域作为输出结果区域读入数组brr
   
7.    '这里的AA1位置是我临时定的，楼主可以自己修改成实际浅绿色单元格的位置。
   
8.    '按理说，这个区域的列数应该和原始区域的列数相同吧。
   
9.    
   
10.    'ReDim brr(1 To m, 1 To n) '重新定义数组brr用来存放结果→ 于是这一句代码就不需要了。
    
11.    
    
12.    Set d = CreateObject("Scripting.Dictionary") '定义字典d用来记录关键词行位置指针
    
13.    For i = 2 To UBound(brr) '遍历浅绿色数据有效行
    
14.        d(brr(i, 1)) = i  '浅绿色关键词（数据brr第1列）存入字典，并以其列位置作为字典Item项目内容
    
15.    Next
    
16.      '以上就完成了按指定浅绿色单元格统计的字典准备工作
    
17. 
    
18.     '下面开始处理原始数据
    
19.     For i = 2 To m '遍历数据有效行
    
20.         t = d(arr(i, 1)) '用字典查询获取关键词（数据第1列）在字典中对应行位置
    
21.         If t <> "" Then '如果结果不为空白，则该关键字需要被统计，否则忽略
    
22.             For j = 3 To n '接下来，遍历各数据列把对应的统计数据加总到结果数组brr相应的行、列位置。
    
23.                 brr(t, j) = brr(t, j) + arr(i, j) '以在字典中查询到的t变量作为记录时行位置的指针。
    
24.             Next
    
25.               End If
    
26.         Next
    
27.    
    
28.     [aa1].Resize(UBound(brr), n) = brr '输出结果到工作表指定区域
    
29. End Sub

复制代码

香川群子

话说，楼主例子中的要求，还是不要用VBA，直接用Sumif公式就是最好的解决办法。

手把手学习

太感谢香川老师了，简洁易懂的代码解决了我好多难题。根据你的注释稍作修改，就在不同工作表之间、多条件用&连起来后也能使用了。多谢多谢！

forlovewyz

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

对我有借鉴意义。

nikonmonarch

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

这个要学习。用字典加总多列数据，很长时间困扰着我，总算见到个实例。感谢！

HUA79100101

用字典加总多列数据

244506982

香川群子 发表于 2013-1-29 08:40
那就这样修改：

虽然是年代久远的贴子,不过还是看看有没希望得到香川老师的回复......   这条代码我放进去了,还过第23行代码提示下标越界.  怎么回事呢,楼主又可以用的.