求 vba 按月统计

unitepower

菜鸟求助 vba_test.zip (12.96 KB, 下载次数: 11)

2012-8-25 00:31 上传

点击文件名下载附件
VBA 日期统计

原始数据      
City Customer Production Name Book Date Sell Date Price
SZ A TV 2011年2月1日 2011年4月2日 12
CD C TV 2011年2月2日 2011年4月3日 12
SZ S STB 2011年4月3日 2011年8月4日 12
GZ A STB 2011年6月4日 2011年7月5日 12
DG C TV 2011年6月5日 2012年4月6日 12
DG X DVD 2011年10月6日 2011年12月7日 12

汇总数据     
Date Book Num. Sell Num. Book Price Sell Price
2011年2月 2 0 24 0
2011年3月 0 0 0 0
2011年4月 1 2 12 24
2011年5月 0 0 0 0
2011年6月 2 0 24 0
2011年7月 0 1 0 12
2011年8月 0 1 0 12
2011年9月 0 0 0 0
2011年10月 1 0 12 0
2011年11月 0 0 0 0
2011年12月 0 1 0 12
2012年1月 0 0 0 0
2012年2月 0 0 0 0
2012年3月 0 0 0 0
2012年4月 0 1 0 12
2012年5月 0 0 0 0
2012年6月 0 0 0 0
2012年7月 0 0 0 0
2012年8月 0 0 0 0

数据和结果如附件。

如何用 VBA 实现，特别在处理 日期这个横坐标的时候，比较麻烦。因为有将近8年的数据要作分析。

hately

C2数组公式={SUM((org!E:E>=final!B4)*(org!E:E<EOMONTH(B4,0)))}下拉
D2数组公式={SUM((org!F:F>=final!B4)*(org!F:F<EOMONTH(B4,0)))}下拉

unitepower

谢谢！
我有点菜，没看懂，不知道如何加入到 VBA 中来执行。并生成新的表格。
看能否再指明白点，呵呵。

unitepower

手动操作
C2
={SUM((org!E:E>=final!B4)*(org!E:E<EOMONTH(B4,0)))}
之后下拉
B4 会递增，应该合理。不过数据就不对了。

unitepower

另外，日期这边，需要自动生成递增？

unitepower

Sub vbatest()

Dim a As String


'Worksheet("org").Range().Select
'Sheets("org").Select

Call sheet_create("final")

With Sheets("final").Cells(2, 1)
    .Value = "Summary Data"
    .Font.Bold = True
    .ColumnWidth = 15
End With

'Sheets("final").Cells(2, 4)
'SUM(("org"&!E:E>=final!B4)*("org"&!E:E<EOMONTH(B4,0)))
'D2数组公式={SUM((org!F:F>=final!B4)*(org!F:F<EOMONTH(B4,0)))}下拉
End Sub