怎么将多个Excel工作簿合并成一个新的工作簿

Question

如题所述

Answer 1

以WPS 2019版本为例：

关于WPS表格合并多个工作簿，您可使用WPS参考下述步骤完成操作：

1.打开表格文件，点击【数据-合并表格】

2.选择添加需合并的文档-开始合并；

3.合并完成后，被合并的工作簿将会变为多个「工作表」存在于一个「工作簿」内。

Answer 2

可以利用VBA将多个Excel工作簿合并成一个新的工作簿

软件版本：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.这样，选择的工作簿就变成了当前工作簿的工作表，从而合并到了一个工作簿中：

Answer 3

逐个工作簿全选工作表，右键点击工作表标签，移动工作表到新的工作簿。本回答被提问者采纳