求助高人如何将多个表格多sheet数据，提取汇总到一个表格中，不需计算也不需汇总

weili123

有表1-3里面分别有3张表sheet1-sheet3，对应的每张表格的格式完全一样，需要将表1-3中汇总到一个表格，不需要汇总计算，只需把表格的数据提取到汇总表即可，最好是关联的模式，表1-3后面数据还会变动，怎么让汇总表也跟着自动变动。我这只是做了个模版，实际工作数据量很大，一个一个去做关联工作量太大，请高人不吝赐教，小女子感激不尽！

weili123

这是做的模版数据，本人excel菜鸟一枚，请高人指导，不胜感激！

dyp1610

Sub 合并数据()
   
   '合并指定目录中所有文件中相同格式工作表的数据
   Dim MyPath$, myFile$, AK As Workbook, aRow%, tRow%, i As Integer
    Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
   MyPath = ThisWorkbook.Path & "\"
   
    myFile = Dir(MyPath & "*.xls")            '依次找寻指定路径中的*.xls文件
            Debug.Print myFile

   Do While myFile <> ""                     '当指定路径中有文件时进行循环
      If myFile <> ThisWorkbook.Name Then
          Set AK = Workbooks.Open(MyPath & myFile)          '打开符合要求的文件
          For i = 1 To AK.Sheets.Count
          aRow = AK.Sheets(i).Range("b65536").End(xlUp).Row
          tRow = ThisWorkbook.Sheets(i).Range("b65536").End(xlUp).Row + 1

           
          AK.Sheets(i).Range("a2:d" & aRow).Copy ThisWorkbook.Sheets(i).Range("a" & tRow)  '取得第2行以后的数据
         Next
          Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
       myFile = Dir                                   '找寻下一个*.xls文件
   Loop
      
    Application.ScreenUpdating = True
   MsgBox "汇总完成，请查看！", 64, "提示"

End Sub

weili123

dyp1610 发表于 2015-3-18 12:55
Sub 合并数据()
   
   '合并指定目录中所有文件中相同格式工作表的数据

大神，你是编了个程序吗？这个程序可以做成一个模块用加载宏的方式弄进excel吗

dyp1610

weili123 发表于 2015-3-18 15:23
大神，你是编了个程序吗？这个程序可以做成一个模块用加载宏的方式弄进excel吗

到excel的开发工具，创建一个宏，将代码粘进去，运行就行了。

617753659

dyp1610 发表于 2015-3-18 12:55
Sub 合并数据()
   
   '合并指定目录中所有文件中相同格式工作表的数据

如何利用VBA将不同工作表里的数据汇总到同一工作表里相应的位置

dyp1610

617753659 发表于 2017-2-10 17:26
如何利用VBA将不同工作表里的数据汇总到同一工作表里相应的位置

这应当更简单了，论坛中有好多类似的例子，如有疑问，请放附件

lusa

留脚印留脚印

橒♂蝣

=VSTACK('*'!单元格区域）

cztanghao

用Python做个脚本，然后一键运行，可以自定义，更方便，有兴趣回复我