[已解决]如何统计月数据

h284124405 · 发表于 2016-10-7 08:47

请大师们看看我的附件.谢谢了

最佳答案

月排行榜 / 总排行榜

雨吧

2016-10-7 09:56

Sub YuBa()
Dim arr, ar, y%, i%, j%
[j4:j1000] = ""
y = Range("j1").Value
arr = Range("a2").CurrentRegion
ar = Range("i4").CurrentRegion
For i = 2 To UBound(ar)
For j = 2 To UBound(arr)
If Month(arr(j, 1)) = y And arr(j, 3) = ar(i, 1) Then
ar(i, 2) = ar(i, 2) + arr(i, 4)
End If
Next
Next
[i3].Resize(i - 1, 2) = ar
End Sub

复制代码

统计月数据.rar (16.08 KB, 下载次数: 18)

雨吧 · 发表于 2016-10-7 09:56

Sub YuBa()
Dim arr, ar, y%, i%, j%
[j4:j1000] = ""
y = Range("j1").Value
arr = Range("a2").CurrentRegion
ar = Range("i4").CurrentRegion
For i = 2 To UBound(ar)
For j = 2 To UBound(arr)
If Month(arr(j, 1)) = y And arr(j, 3) = ar(i, 1) Then
ar(i, 2) = ar(i, 2) + arr(i, 4)
End If
Next
Next
[i3].Resize(i - 1, 2) = ar
End Sub

复制代码

统计月数据.rar (16.08 KB, 下载次数: 18)

h284124405 · 发表于 2016-10-7 10:38

雨吧发表于 2016-10-7 09:56

统计出来的数量不对.

雨吧 · 发表于 2016-10-7 17:44

h284124405 发表于 2016-10-7 10:38
统计出来的数量不对.

抱歉，代码第10行 arr(i, 4) 应为 arr(j, 4)，
现已更正。

Sub YuBa()
Dim arr, ar, y%, i%, j%
[j4:j1000] = ""
y = Range("j1").Value
arr = Range("a2").CurrentRegion
ar = Range("i4").CurrentRegion
For i = 2 To UBound(ar)
For j = 2 To UBound(arr)
If Month(arr(j, 1)) = y And arr(j, 3) = ar(i, 1) Then
ar(i, 2) = ar(i, 2) + arr(j, 4)
End If
Next
Next
[i3].Resize(i - 1, 2) = ar
End Sub

复制代码

统计月数据.rar (16.1 KB, 下载次数: 18)

h284124405 · 发表于 2016-10-8 10:09

雨吧发表于 2016-10-7 17:44
抱歉，代码第10行 arr(i, 4) 应为 arr(j, 4)，
现已更正。

谢谢,是J例合计,懂了.

frankchen0823 · 发表于 2016-10-24 20:48

Sub ff()

Dim arr()
Set d = CreateObject("scripting.dictionary")

arr = [a1].CurrentRegion.Value
For i = 2 To UBound(arr)
d(Month(arr(i, 1)) & "月" & arr(i, 3)) = d(Month(arr(i, 1)) & "月" & arr(i, 3)) + arr(i, 4)

Next
For j = 4 To 8
Range("j" & j) = d(Range("j1") & "月" & Range("i" & j))
Next
End Sub

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