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

1、新建一个工作薄，将其命名为你合并后的名字

2、打开此工作薄

3、按下ALT+F11，调出VBA编辑界面

4、在打开的VBA编辑窗口中粘贴以下代码：（根据需要修改xls或者xlsx）Sub 多釉涑杵抑表多文件合并为多表一文件()Dim FileArrayDim X As IntegerApplication.ScreenUpdating = FalseFileArray = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(*.xls),*.xls", MultiSelect:=True, Title:="合并工作薄")X = 1While X <= UBound(FileArray)Workbooks.Open Filename:=FileArray(X)Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)X = X + 1WendExitHandler:Application.ScreenUpdating = TrueExit Suberrhadler: MsgBox Err.DescriptionEnd Sub

7、在打开的对话窗口中，选择需要合并的多个工作薄

8、等待Excel自动处理完成