急！求VBA数组 字典优化程序（附件运行需40多分钟，还不及Sumif）

seiyasam

看不明，为啥要将所有东东放到一个ds里面？

尤其函数2里面

nL = ds(Left(Brr(i, 3), 4))
nR = ds(Brr(i, 1) & Brr(i, 2))

真心看不明。

山菊花

seiyasam 发表于 2015-1-21 18:54
看不明，为啥要将所有东东放到一个ds里面？

尤其函数2里面

下图有两个表，底层的是原始数据，上层的是统计结果。
如何将原始数据累加，要考虑一个问题就是，这个数据加到目标表中的哪一行？哪一列？
ds是一个字典，字典是本帖的主题词，关键词。本例中用字典保存和查找数据所在行和列的位置。
在程序中用字典保存和查找数据，可以简化程序，提高速度。
论坛中很多关于字典的实例和教程，如有兴趣，慢慢去学习。



字典教程：正松舒，慢匀稳——太极字典少年班

seiyasam

山菊花 发表于 2015-1-21 19:49
下图有两个表，底层的是原始数据，上层的是统计结果。
如何将原始数据累加，要考虑一个问题就是，这个 ...

好的，不过有点建议，其实也是对很多做程序的同学，不要老是把变量写成什么1，2，3，i,j,k，a,b,c之类的，其实这样会降低代码可读性。有时可能写的那个人很有水准，但基本的东西如果弄好点，就更好了。例如目标表可否就命名为target_table，或者target_XXX之类的，看起来会舒服很多。希望各位也可以看到我这个留言，谢谢。

山菊花

这个问题不重要，这个建议也不会改变他人。其实程序最终是写给自己看的，只要自己能看懂就行。每个人的文化、习惯不同，会影响代码的编写风格，会选择如何去写代码，也注定了如何写代码。你看target_table很直观，而我看得却很累，要一个字母一个字母去念，念完之后又忘记了，不如一个t。
在论坛回复帖子，代码中添加一些注释文字是好的。