用VBA统计每个月的频次和总金额

w01013086 · 发表于 2018-10-13 11:20

各位大神,附件中是有要求和做好的例子,不会用VBA,还麻烦帮我用VBA来做,谢谢.

hdbk · 发表于 2018-10-13 13:04

月份数据在哪里？在采购单里面吗？那2月在哪里？

w01013086 · 发表于 2018-10-13 13:07

hdbk 发表于 2018-10-13 13:04
月份数据在哪里？在采购单里面吗？那2月在哪里？

月份是要根据Sheet1里的AC列来算出来的,筛选一下,就可以看到各个月的数据

w01013086 · 发表于 2018-10-13 14:22

有没有大神能帮忙解决下?

ykqrs · 发表于 2018-10-13 14:49

Option Explicit
Sub qq()
Dim d, arr, r&, i&, brr(), n%, d1, s$
Set d = CreateObject("Scripting.Dictionary")
Set d1 = CreateObject("Scripting.Dictionary")
With Worksheets("sheet1")
r = .Cells(.Cells.Rows.Count, "i").End(xlUp).Row
arr = .Range("a2:ac" & r)
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 9)) Then
ReDim brr(1 To 28)
brr(1) = arr(i, 9)
Else
brr = d(arr(i, 9))
End If
n = Month(arr(i, 29))
brr(n * 2 + 2) = brr(n * 2 + 2) + (arr(i, 18) * arr(i, 22))
brr(27) = brr(27) + brr(n * 2 + 2)
s = arr(i, 9) & "+" & n & "+" & arr(i, 1)
If Not d1.exists(s) Then
d1(s) = ""
brr(n * 2 + 1) = brr(n * 2 + 1) + 1
brr(28) = brr(28) + 1
End If
d(arr(i, 9)) = brr
Next
End With
With Sheet4
.[a3].CurrentRegion.Offset(2).ClearContents
.[b5].Resize(d.Count, 28) = Application.Transpose(Application.Transpose(d.items))
End With
End Sub

复制代码

ykqrs · 发表于 2018-10-13 14:51

频次.rar (833.36 KB, 下载次数: 41)

w01013086 · 发表于 2018-10-13 15:09

本帖最后由 w01013086 于 2018-10-13 15:13 编辑

ykqrs 发表于 2018-10-13 14:49

前面的序列号也要自动填充,然后最下面要加一行合计,所有有内容的单元格都要加线框.这些代码能帮我完善一下吗?C列的内容,需要我手动加上去,我加了个按钮,点一下,能不能不抹掉C列的内容?

w01013086 · 发表于 2018-10-13 15:11

ykqrs 发表于 2018-10-13 14:51

还有我在C列要加上其他内容的,能不能,我点按钮的时候,不抹掉C列的内容?

zyhqzn · 发表于 2018-10-13 15:36

这个和数据透视表做的一样！！

w01013086 · 发表于 2018-10-13 15:54

zyhqzn 发表于 2018-10-13 15:36
这个和数据透视表做的一样！！

数据透视表,需要加好几列辅助列,因为数据经常变动,每次都要加那几列,挺慢的.

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

[求助] 用VBA统计每个月的频次和总金额