如何按月汇总不同工作簿的数据到同一工作簿的指定区域

bettyyang11

我现在有三个工作簿（分别是资产负债表、损益表、现金流量表）分别由三个人负责编制，希望能实现点击“2015年报表汇总”工作簿中“数据提取”按钮，按照当前月份将这三个工作簿中对应月份的数据汇总到“2015年报表汇总”工作簿中“2015年实际”工作表的指定位置。拜托了，各位高手~

冥王

1. Sub demo()
   
2.     Dim strPath$
   
3.     Dim arr, brr, crr
   
4.     strPath = ThisWorkbook.Path & ""
   
5.    
   
6.     Application.DisplayAlerts = False
   
7.     Application.ScreenUpdating = False
   
8.    
   
9.     Workbooks.Open strPath & "2015损益表.xlsm"
   
10.     arr = ActiveWorkbook.Sheets(1).Range("D4:P34")
    
11.     ActiveWorkbook.Close False
    
12. 
    
13.     Workbooks.Open strPath & "2015现金流量表.xlsm"
    
14.     brr = ActiveWorkbook.Sheets(1).Range("B5:N8")
    
15.     ActiveWorkbook.Close False
    
16. 
    
17.     Workbooks.Open strPath & "2015资产负债表.xlsm"
    
18.     brr = ActiveWorkbook.Sheets(1).Range("C3:O23")
    
19.     ActiveWorkbook.Close False
    
20. 
    
21.     Range("D4").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    
22.     Range("T3").Resize(UBound(brr, 1), UBound(brr, 2)) = brr
    
23.     Range("T28").Resize(UBound(crr, 1), UBound(crr, 2)) = crr
    
24. 
    
25.     Application.DisplayAlerts = True
    
26.     Application.ScreenUpdating = True
    
27. End Sub

复制代码

bettyyang11

谢谢您的回复，我想再请教下，能不能每次只复制一个月的，也就是按照“2015年报表汇总”中F1单元格的月份，导入相应月份的数据，因为我担心如果三张财务报表5月份以前的数据变了，我全部导入的话，我的汇总表跟以前的也就不一样了。