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

jc847860351 · 发表于 2018-7-16 10:17

请教各位老师，有帮忙指点的吗？

这个是昵称吗 · 发表于 2018-7-16 12:40

为了方便把数据表放到一个工作簿
不知道求和数据表的H列还是I 还是 J，暂定H
另外本身数据里面是不是就没有符合要求的啊，还是我写错了？？？结果全是0
我自己加了两个测试又可以，不懂你这数据能不能用

Sub 求和()
Dim 数据, 字典, 条件, i%, 结果
数据 = Sheet2.Range("B2").CurrentRegion
条件 = Sheet1.Range("B2").CurrentRegion
Set 字典 = CreateObject("Scripting.Dictionary")
For i = 2 To UBound(条件)
字典(条件(i, 1) & 条件(i, 3) & 条件(i, 4)) = 0
Next
For i = 2 To UBound(数据)
If 字典.Exists(数据(i, 2) & 数据(i, 4) & 数据(i, 5)) Then
字典(数据(i, 2) & 数据(i, 4) & 数据(i, 5)) = 字典(数据(i, 2) & 数据(i, 4) & 数据(i, 5)) + 数据(i, 7)
End If
Next
结果 = 字典.Items
[k3].Resize(字典.Count, 1) = Application.Transpose(结果)
End Sub

复制代码

这个是昵称吗 · 发表于 2018-7-16 12:43

附件传不了！打不开算了！

jc847860351 · 发表于 2018-7-16 16:05

这个是昵称吗发表于 2018-7-16 12:40
为了方便把数据表放到一个工作簿
不知道求和数据表的H列还是I 还是 J，暂定H
另外本身数据里面是不是就没 ...

你好，要求是在表一的K列写入以B D E 列为条件求和，要求和的区域在表二里

jc847860351 · 发表于 2018-7-16 16:06

这个是昵称吗发表于 2018-7-16 12:43
附件传不了！打不开算了！

是你的附件上传不了吗？

这个是昵称吗 · 发表于 2018-7-17 11:45

本帖最后由这个是昵称吗于 2018-7-17 11:49 编辑

jc847860351 发表于 2018-7-16 16:05
你好，要求是在表一的K列写入以B D E 列为条件求和，要求和的区域在表二里

啊！表2是数据源吗？表1是要求吗？我现在是把表2的数据H类求和到表1的K列了！因为没有肯定不知道对不对所以我就先放到一起测试

确认了可以用打开工作簿的方式2个表！加几句的事情！所以等你确认好

这个是昵称吗 · 发表于 2018-7-17 11:52

jc847860351 发表于 2018-7-16 16:06
是你的附件上传不了吗？

不知道是啥问题我这里的附件传不了，点击上传附件不显示选择路径！

opiona · 发表于 2018-7-17 11:58

本帖最后由 opiona 于 2018-7-17 12:06 编辑

建议使用SQL的left join
！

jc847860351 · 发表于 2018-7-17 15:04

这个是昵称吗发表于 2018-7-17 11:45
啊！表2是数据源吗？表1是要求吗？我现在是把表2的数据H类求和到表1的K列了！因为没有肯定不知道对不对所 ...

谢谢您，您的代码是OK的，非常感谢

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

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