多个excel合并为一个excel的多个sheet

注意：用excel(excel2013等)而非wps

步骤：1.新建汇总excel

2.用excel打开工作表汇总，删除其余两个sheet,留下一个改名汇总（随意命名）

3.鼠标放在汇总sheet页，然后右键，点击查看代码（或者alt+F11--》工具栏选择视图--》代码窗口）

4.将以下代码复制到弹出窗口（如果excel文件是.xls,则只需要修改代码中的文件后缀即可）

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

5.工具栏点击工具--》宏--》选择工作薄间工作表合并--》运行

6.弹出窗口选择要合并的excel文件，打开，等待合并

7.合并后的效果