请教高手们，VBA多条件求和

jc847860351 · 发表于 2018-7-16 09:14

请教各位老师：
1. 根据表一的要求，在表二对应的数据里按条件求和到表一的K列。
2. 由于数据量较多（约近十万条记录，且以后还不断增加），想用VBA完成。

活在理想的世界 · 发表于 2018-7-16 09:29

VBA的多条件求和说白了就是用&把你要的条件全部&起来，然后装进自动循环一下就OK了

jc847860351 · 发表于 2018-7-16 09:36

活在理想的世界发表于 2018-7-16 09:29
VBA的多条件求和说白了就是用&把你要的条件全部&起来，然后装进自动循环一下就OK了

那我试试看，谢谢

活在理想的世界 · 发表于 2018-7-16 09:38

jc847860351 发表于 2018-7-16 09:36
那我试试看，谢谢

是装进字典，不是装进自动啊。

我刚才字打错了。

活在理想的世界 · 发表于 2018-7-16 09:41

jc847860351 发表于 2018-7-16 09:36
那我试试看，谢谢

注意装字典的时候给Key一个拆分的焦点就OK，这个焦点可以是"，"也可以是你喜欢的任何字符。

只要能用split做拆分就可以了。

jc847860351 · 发表于 2018-7-16 09:41

活在理想的世界发表于 2018-7-16 09:29
VBA的多条件求和说白了就是用&把你要的条件全部&起来，然后装进自动循环一下就OK了

能做个示例供我参考下吗？谢谢

jc847860351 · 发表于 2018-7-16 09:43

活在理想的世界发表于 2018-7-16 09:41
注意装字典的时候给Key一个拆分的焦点就OK，这个焦点可以是"，"也可以是你喜欢的任何字符。

只要能用s ...

我是VBA小白，字典还不会用，比较尴尬

活在理想的世界 · 发表于 2018-7-16 09:45

jc847860351 发表于 2018-7-16 09:41
能做个示例供我参考下吗？谢谢

第一步：arr=工作表的某个区域
第二步：字典(arr(i,1) & "*" & arr(i,2) & "*" & arr(i,3))=字典(arr(i,1) & "*" & arr(i,2) & "*" & arr(i,3)) +你需要求和的那一列 '具体那一列可以根据需要
第三步：给单元格赋值，这个会做吧？

活在理想的世界 · 发表于 2018-7-16 09:47

字典会用吧？不会用等别人吧。如果会用我相信已经说得很清楚了。

我现在没工具，没法法写代码

jc847860351 · 发表于 2018-7-16 09:54

活在理想的世界发表于 2018-7-16 09:47
字典会用吧？不会用等别人吧。如果会用我相信已经说得很清楚了。

我现在没工具，没法法写代码

谢谢老师，字典我还不会用，但还是非常感谢你

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

[求助] 请教高手们，VBA多条件求和

评分