原始数据2、操作步骤
2.1 关闭刚才预览的三个Excel文件，并在同文件夹下，新建一个Excel文件，如图所示，汇总.xlsx就是刚才新建的新建文件2.2、打开汇总文件，在工作表标签sheet1上面点右键，选择查看代码（也可以按键盘上面的快捷键 Alt+F11，一样的功能）
编辑代码2.3 粘贴代码，运行
按照下图的1 2 3 的顺序，搞定就可以了，点击3以后，一切都是自动的，程序会依次打开文件，汇总数据，大概3~5秒（若数据多，时间稍长，待屏幕不闪动了），就完成代码执行2.4 关闭代码窗口，看看是不是有数据了？
检查结果2.5 若以后还想使用本工作簿，在另存的时候，记得要保存成 "启用宏的工作簿.xlsm"
附代码如下：
直接复制下面的的代码，就可以了
Sub 合并多个工作簿()
Dim MyPath$, MyName$, sh As Worksheet, sht As Worksheet, m&
Set sh = ActiveSheet
MyPath = ThisWorkbook.Path & "\"
MyName = Dir(MyPath & "*.*")
Application.ScreenUpdating = False
Cells.ClearContents
Do While MyName <> ""
If MyName <> This Workbook.Name Then
With GetObject(MyPath & MyName)
For Each sht In .Sheets
If IsSheetEmpty = IsEmpty(sht.UsedRange) Then
m = m + 1
If m = 1 Then
sht.[a1].CurrentRegion.Copy sh.[a1]
Else
sht.[a1].CurrentRegion.Copy sh.[a65536].End(xlUp).Offset(1)
End If
End If
Next
.Close False
End With
MyName = DirLoop
Application.ScreenUpdating = True
End Sub