1. 新建excel文件

2. 在工作表标签右键，查看代码

3. VBA代码

  1. Sub 工作薄间工作表合并()
  2. Dim FileOpen
  3. Dim X As Integer
  4. Application.ScreenUpdating = False
  5. FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
  6. X = 1
  7. While X <= UBound(FileOpen)
  8. Workbooks.Open Filename:=FileOpen(X)
  9. Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
  10. X = X + 1
  11. Wend
  12. ExitHandler:
  13. Application.ScreenUpdating = True
  14. Exit Sub
  15. errhadler:
  16. MsgBox Err.Description
  17. End Sub

4. 关闭VBA编辑窗

5. 执行宏

6. 选择需要合并的文件

7. 执行结果

每个文件会复制到汇总文件的单独工作表中