如何合并多个excel工作薄到一个excel工作薄里

一，同时打开两个工作簿在一个窗口显示，用鼠标拖住其中一个工作簿的标签（比如sheet 1）放到另一个工作簿的标签附近，松开鼠标就可以了。
二，打开两个工作簿，在要移动的工作标签上点右键，选择‘移动或复制工作表’，再选择另外一个工作薄……看提示操作就可以了。
多个工作薄以此类推。

Sub CombineWorkbooks()
Dim FilesToOpen, ft
Dim x As Integer
Application.ScreenUpdating = False
On Error GoTo errhandler

FilesToOpen = Application.GetOpenFilename _
(FileFilter:="Micrsofe Excel文件(*.xls), *.xls", _
MultiSelect:=True, Title:="要合并的文件")

If TypeName(FilesToOpen) = "boolean" Then
MsgBox "没有选定文件"
'GoTo errhandler
End If

x = 1
While x <= UBound(FilesToOpen)
Set wk = Workbooks.Open(Filename:=FilesToOpen(x))

wk.Sheets().Move after:=ThisWorkbook.Sheets _
(ThisWorkbook.Sheets.Count)
x = x + 1
Wend

MsgBox "合并成功完成！"

errhandler:
' MsgBox Err.Description
'Resume errhandler
End Sub

看看直观演示
excel 如何利用宏合并多个工作表 如何合并多个excel表格 把多个excel工作表中的有效数据行合并到一个表中,怎么操作最快? 多个excel数据合并？？？ 如何在excel中合并多个表格 excel中如何快捷地使用合并单元格合并多个单元格 Excel多个工作表合并成一个工作表的问题 excel 合并工作表 如何在EXCEL里把很多个sheet的数据合并到一张sheet里？ 十万火急，我想把多个Microsoft Excel 工作表合并成一个