按月计数

蒋正栋

各位老师：

帮忙看看用VBA如何解决，按月计数，谢谢。
不用数据透视表，用VBA代码怎么写？

蒋正栋

请走过路过的老师，帮忙看看用VAB怎么实现按月计数，谢谢

smhf_6

汇总表不固定，总是不太方便，难道2017-2020年，数据一直往右边放，2014年的数据始终占领第一版？

蒋正栋

smhf_6 发表于 2017-1-22 18:41
汇总表不固定，总是不太方便，难道2017-2020年，数据一直往右边放，2014年的数据始终占领第一版？

是否可以设置一个开始时间和结束时间，来提起时间段内的数据
谢谢你的回复。

蒋正栋

smhf_6 发表于 2017-1-22 18:41
汇总表不固定，总是不太方便，难道2017-2020年，数据一直往右边放，2014年的数据始终占领第一版？

主要是想保留过去的数据，进行分析，可能一些料号太久没有用到，太久没有用到就认为它是属于呆置的零件，可能需要想办法退货或者低价出售等.....

smhf_6

这当然可以
但个人感觉，在一个单位中，谁愿意管？谁愿意看陈年账？
2016已过去，统计报表已出。2017从新开始，清楚干净

蒋正栋

smhf_6 发表于 2017-1-22 18:56
这当然可以
但个人感觉，在一个单位中，谁愿意管？谁愿意看陈年账？
2016已过去，统计报表已出。2017从新 ...

主要是那些东西处理不了

蒋正栋

还是帮忙看看怎么提取数据吧，谢谢

smhf_6

Sub gsxx()

Dim i, ir, arr, yf
Dim dc As Object, dcx As Object
Dim dd1, dd2
Dim brr(), p, m
Set dc = CreateObject("scripting.dictionary")
Set dcx = CreateObject("scripting.dictionary")

With Sheet2
ir = .Range("c100000").End(xlUp).Row
arr = .Range("c2:h" & ir)
End With
dd1 = Range("b1")
dd2 = Range("b2")

For i = 1 To UBound(arr)
If arr(i, 6) >= dd1 And arr(i, 6) <= dd2 Then
yf = Month(arr(i, 6))
dc(yf & "|" & arr(i, 1)) = dc(yf & "|" & arr(i, 1)) + 1
dcx(arr(i, 1)) = ""
End If
Next

p = dcx.keys
ReDim brr(1 To UBound(p) + 1, 1 To 13)

For i = 0 To UBound(p)
  m = m + 1
  brr(m, 1) = p(i)
  For j = 2 To 13
  brr(m, j) = dc((j - 1) & "|" & p(i))
  Next
Next

ir = Range("a100000").End(xlUp).Row
If ir > 6 Then
Range("a7:m" & ir).ClearContents
End If
  
Range("a7").Resize(m, 13) = brr
Set dc = Nothing
Set dcx = Nothing

End Sub

smhf_6

这只是一个大概的框架