[已解决]求 宏 代码 提取数据到指定位置和汇总数据

feiaoli

求 宏 代码  提取数据到指定位置和汇总数据

1、根据 特定单元格的月份条件在数据列表中提取相应月份的数据到指定的行
2、根据 特定单元格的月份条件在数据列表中提取相应月份的数据汇总到指定的行（包括本月份）

谢谢{:29:}

最佳答案

月排行榜 / 总排行榜

grf1973

2014-4-16 11:36

D2单元格发生改变，表中数据随之改变。

跳转到最佳答案楼层

grf1973

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address <> [d2].Address Then Exit Sub
   
3.     If Not IsDate(Target) Then Exit Sub
   
4.     Dim brr(1 To 2, 1 To 6)
   
5.     r = [a65536].End(3).Row
   
6.     arr = Range("a8:g" & r - 1)
   
7.     For i = 1 To UBound(arr)
   
8.         If arr(i, 1) = Target Then
   
9.             For j = 1 To 6
   
10.                 brr(1, j) = arr(i, j + 1)
    
11.             Next
    
12.         End If
    
13.         If arr(i, 1) <= Target Then
    
14.             For j = 1 To 6
    
15.                 brr(2, j) = brr(2, j) + arr(i, j + 1)
    
16.             Next
    
17.         End If
    
18.     Next
    
19.     Range("b5:g6") = brr
    
20. End Sub

复制代码

grf1973

D2单元格发生改变，表中数据随之改变。

grf1973

或者公式也行。
B5=SUMIF($A$8:$A$11,$D$2,B8:B11)
B6=SUMIF($A$8:$A$11,"<="&$D$2,B8:B11)   右拉

gfp12345678

谢谢分享。。。。。。。。。。。。。。。。。。。

feiaoli

grf1973 发表于 2014-4-16 11:09

谢谢老师辛苦了，很完美的答案，超乎了我的想象，而且还可以按照分年度统计数据，老师不但对代码很精通，而且对财务统计表格和很精通~~再次谢谢辛苦了~~