Excel 如何合并汇总多个工作簿文件为一个工作簿

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自动处理完成