请问如何把几十个excel文件相同位置内容复制到同一个excel文件的不同表格

2157

需要把几十个excel文件即同一个文件夹里面的不同excel工作簿的相同位置内容复制到另一个已经存在的excel工作簿的对应的几十个已经存在的sheet里面

因为最后汇总到的那个excel工作簿是别人做的模板，有公式，需要把另外几十个工作簿相同位置内容复制到这个已经存在的工作簿的对应几十个sheet


有没有人知道的，帮帮我啊，
谢谢啦


补充内容 (2020-7-29 15:42):
附件在三楼

老骥705664849

求助务必上传附件，不然，没人帮得了你的

2157

有人帮忙吗。
数据源excel 以及结果excel我都提供了，
求助，谢谢，需要把广东省，广东各地市，广东省分行本部数据源excel文件里面的数字复制粘贴到结果表对应的sheet里面，谢谢

2157

老骥705664849 发表于 2020-7-3 09:06
求助务必上传附件，不然，没人帮得了你的

谢谢，刚刚把附件上传了

老骥705664849

7月3号的帖子到今天才回复，呵呵呵，
看了附件了，比较麻烦，

老骥705664849

Sub hebing()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each sh In Sheets
    d(sh.Name) = ""
Next sh
f = Dir(ThisWorkbook.Path & "\数据源G0103_200630\*.xls*")
Do While f <> ""
    Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据源G0103_200630\" & f, 0)
    mc = Replace(Split(wb.Name, "_")(1), "市分行", "")
    If d.exists(mc) Then
         wb.Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(mc).[a1]
    End If
    wb.Close False
f = Dir
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "ok!"
End Sub

老骥705664849

代码基于工作表结构完全相同，自己测试看看吧

yang840516

老师能否帮忙注释一下