如何将多个excel表合成一个excel

一、新建excel

  桌面上新建一个excel

 

二、添加宏代码

1、选中excel中的sheet,右键选择查看代码

2、在编辑器中添加代码并保存

三、运行宏代码

1、选择运行的宏代码

 

2、选择需要合并的excel

 

附：

宏代码

Sub 工作薄间工作表合并()
Dim FileOpen
Dim X As Integer
Application.ScreenUpdating = False
FileOpen = Application.GetOpenFilename(FileFilter:="Microsoft Excel文件(.xlsx),.xlsx", MultiSelect:=True, Title:="合并工作薄")
X = 1
While X <= UBound(FileOpen)
Workbooks.Open Filename:=FileOpen(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

相关文档：https://www.jianshu.com/p/c8ae6852f1da