如何快速的合并多个 Excel 工作簿成为一个工作簿

可以利用VBA快速合并多个工作簿

软件版本：Office2013

方法如下：

1.新建一个工作簿或者打开一个要合并到的工作簿，Alt+F11，打开VBA编辑界面，输入如下代码：

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

2.F5执行代码，选择要合并的多个工作簿后，点击打开：

3.这样，选择的工作簿就变成了当前工作簿的一个个工作表，从而合并到了一个工作簿中：

一、简介
Excel文件的工作簿可以有很多工作表，把不同工作簿的工作表统一放到一个工作簿里面
二、工具
安装Excel软件的电脑，需要合并且可以打开的工作簿
三、步骤
1、打开需要合并的工作簿，选中所有工作表（可以按shift拖选）；
2、在选中的工作表标签上右键单击，选择移动或复制工作表；
3、在对话框中选择需要移动到的工作簿；
4、选择在目的工作中的位置，单击确定；
重复1~4步合并其他工作簿。
四、注意事项
以对不同来源的工作簿的工作表标签移入新工作簿后可以用不同颜色标注出来，以便区分