1、新建一个工作薄，将其命名为你合并后的名字
2、打开此工作薄
3、按下ALT+F11，调出VBA编辑界面
4、在打开的VBA编辑窗口中粘贴以下代码：（根据需要修改xls或者xlsx）
Sub 多表多文件合并为多表一文件()
Dim FileArray
Dim X As Integer
Application.ScreenUpdating = False
FileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileArray)
Workbooks.Open Filename:=FileArray(X)
Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
X = X + 1
Wend
ExitHandler:
Application.ScreenUpdating = True
Exit Sub
errhadler:
MsgBox Err.Description
End Sub
5、关闭VBA编辑窗口
6、在Excel表格界面中，选择 开发工具---宏---宏,选“多表多文件合并为多表一文件”,然后“执行”。
如果找不到“开发工具”，说明还没有设置显示出来。一般OFFICE默认不显示这个菜单项。设置显示“开发工具”可参考如下链接。
7、在打开的对话窗口中，选择需要合并的多个工作薄
8、等待Excel自动处理完成
