VBA合并多工作簿中多张同构工作表数据

视频讲解后很多人要源码，视频评论处代码发不全，就放在这里吧！

Sub appendata()

Dim path As String

Dim file As String

Dim ws As Worksheet

Dim myws As Worksheet

Set myws = ThisWorkbook.Worksheets(1) '设当前工作簿第一张工作表为最终汇总表

path = 'D:\temp\excel\' ’要合并文件所在的文件夹

file = Dir(path)

Application.ScreenUpdating = False

Do While file <> ''

Workbooks.Open path & file

For Each ws In Workbooks(file).Worksheets

lr = myws.Range('A1048576').End(xlUp).Row + 1

ws.Range('A1').CurrentRegion.Offset(1, 0).Copy myws.Cells(lr, 1)

Next

Workbooks(file).Close

file = Dir()

Loop

Application.ScreenUpdating = True

End Sub