如何将多个EXCEL中固定单元格的值汇总分别列到总的大表上

爱吃鱼的毛毛毛

麻烦问下论坛里的各位大神，就是现在有一张数据汇总的大表，里面吸收存款的数据来源是下面各个EXCEL表格中固定的比如H8的值，现在就要求把每年的H8数据自动汇总到汇总大表的对应项目，求各位大神帮助小弟解决一下~

lisongmei

大致是这个样子

1. Sub sdaf()
   
2. Dim xx, sr, wb As Workbook
   
3. Dim s As Double
   
4. Application.ScreenUpdating = False
   
5. xx = Application.GetOpenFilename("excel文件,*.xlsx", , , , True)
   
6. If Not VBA.TypeName(xx) = "Boolean" Then
   
7.     For Each sr In xx
   
8.         Set wb = Workbooks.Open(sr)
   
9.         s = s + wb.Sheets(1).Range("H8")
   
10.         wb.Close False
    
11.     Next
    
12. End If
    
13. ThisWorkbook.Sheets(1).Range("a1").Value = s
    
14. Application.ScreenUpdating = True
    
15. End Sub

复制代码

cutecpu

祝順心，南無阿彌陀佛！

爱吃鱼的毛毛毛

cutecpu 发表于 2021-9-23 18:45
祝順心，南無阿彌陀佛！

大神不好意思您可能理解错我的意思了，我要的不是将这些数据加合做到那个单元格里，而是将每个H8的单元格的值复制到对应的一列，比如19年9月的H8复制到汇总表格中的A1单元格，19年8月的H8复制到汇总表格中的A2单元格，这样子，求大神再帮小弟看一看~

cutecpu

爱吃鱼的毛毛毛 发表于 2021-9-23 18:49
大神不好意思您可能理解错我的意思了，我要的不是将这些数据加合做到那个单元格里，而是将每个H8的单元格 ...

祝順心，南無阿彌陀佛！