如何把几十个相同格式的工作表合并到一个工作表中

hansenyi

如何把几十个相同格式的工作表合并到一个工作表中

Application.ScreenUpdating = False        '冻结屏幕，以防屏幕抖动
    Application.DisplayAlerts = False
    Application.AskToUpdateLinks = False
   Dim myPath$, myFile$, AK As Workbook, aRow%, tRow%, I As Integer
   myPath = ThisWorkbook.Path & "\资料夹名称\"          '把文件路径定义给变量
   myFile = Dir(myPath & "*.xls"            '依次找寻指定路径中的*.xls文件
   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("a65536").End(xlUp).Row
         tRow = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row + 1
            'AK.Sheets(i).Select
         AK.Sheets(I).Range("a2" & aRow).Copy ThisWorkbook.Sheets(1).Range("a" & tRow)
         Next
         Workbooks(myFile).Close False               '关闭源工作簿,并不作修改
      End If
      myFile = Dir                                   '找寻下一个*.xls文件
   Loop
   MsgBox "Concourse汇整完成，请查看！", 64, "提示"
    Application.AskToUpdateLinks = True
   Application.DisplayAlerts = True
   Application.ScreenUpdating = True

qhdhcs

你这是什么东东？？？？？

洪哥

用“插入”功能啊。伊塞尔，沃德，照片等均可