[总结]VBA中多条件求和中SUMPRODUCT问题

AVEL · 发表于 2010-12-30 18:05

谢谢学习了。

kexiter · 发表于 2011-3-21 17:48

很有用！·学习了！

wyf22006 · 发表于 2011-4-18 12:59

这里设置了一个单元格的求算结果，能否象用公式一样向下复制以达到每行都能知道，用VBA如何实现，
也就是条件在变化，

charleslam · 发表于 2011-4-24 16:17

收藏了breezy 的各种方法。谢谢分享

zjwww · 发表于 2011-4-25 06:05

学习了。谢谢！！！！！！

ivw1979 · 发表于 2011-7-23 14:16

太好啦！学习了！

ivw1979 · 发表于 2011-7-24 22:34

Range("E6").Value = [SumProduct((A2:A8 =sheets("订单")!cells(i,5).value) * (B2:B8 =sheets("订单")!cells(i,12).value ) * (C2:C8))]
这句代码那里有问题呢！应该怎么改呢？

jhzghua · 发表于 2011-7-25 08:36

谢谢breezy朋友，分享，收藏了

小秋 · 发表于 2011-8-26 10:54

谢谢
留下脚印

Zamyi · 发表于 2011-8-26 11:10

本帖最后由 Zamyi 于 2011-8-26 11:11 编辑

第5个改下更好，增加字典，对第项一次统计：
Sub breezy_method_5()
Dim aw
Dim i&, aCount&, iRow$, s1&, s2$
aCount = 0
s1 = 2006
s2 = "A"
iRow = Range("A65536").End(xlUp).Row
aw = Cells(2, 1).Resize(iRow - 1, 3)
For i = 1 To iRow - 1
  If aw(i, 1) = s1 then if aw(i, 2) = s2 Then aCount = aCount + aw(i, 3)
Next i
Range("E9") = aCount
End Sub

Sub zd()
Set d = CreateObject("scripting.dictionary")
r = Range("c3", [a65536].End(3))
For i = 1 To UBound(r)
  s = r(i, 1) & r(i, 2)
  d(s) = d(s) + r(i, 3)
Next
Range("E10") = d("2006A")
Set d = Nothing
End Sub

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