根据条件进行求和

冰么么 · 发表于 2017-3-25 18:29

如附件,希望根据条件进行求和,如改变前面日期或国家的时候,数据能够自动刷新；
源数据有几万条数据,写函数的话每次更新执行比较慢,希望用VBA写；

例子：如3月1日到3月8日的US的90内充值,只有3月1日与3月3日有数据,3月1日与3月3日的金额求和/3月1日与3月3日的新增设备求和

万分感谢

microyip · 发表于 2017-3-25 19:53

都已经达到中级的贴数了，连这么简单的汇总还没学会？

冰么么 · 发表于 2017-3-25 19:55

microyip 发表于 2017-3-25 19:53
都已经达到中级的贴数了，连这么简单的汇总还没学会？

会用函数。。。不会用vba···

zax010 · 发表于 2017-3-25 20:52

Sub zz()
Dim d, ar
Set d = CreateObject("Scripting.Dictionary")
ar = Range("A1").CurrentRegion
[d17:j100].ClearContents
br = Range("A16").CurrentRegion
For i = 2 To UBound(ar)
      d(ar(i, 1) & ar(i, 2)) = i
Next
For i = 2 To UBound(br)
      ReDim kk(4 To UBound(br, 2))
      For x = br(i, 1) To br(i, 2)
         k = x & br(i, 3)
         If d.exists(k) Then
            For j = 4 To UBound(br, 2)
                  br(i, j) = br(i, j) + ar(d(k), j - 1)
                  If ar(d(k), j - 1) = "" Then kk(j) = kk(j) + ar(d(k), 3) Else kk(j) = kk(j) + 0
            Next
         End If
      Next
      On Error Resume Next
      For y = 5 To UBound(br, 2)
         br(i, y) = br(i, y) / (br(i, 4) - kk(y))
      Next
Next
Range("A16").CurrentRegion = br
End Sub

zax010 · 发表于 2017-3-25 20:57

这问题乍一看很简单，内里其实很绕弯。

D@计算数据2.rar (14.98 KB, 下载次数: 11)

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

[求助] 根据条件进行求和

评分

最新热点 /1