wps表格怎么合并多个工作簿

以WPS 2019版本为例：

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

1、打开「表格（Excel）」文档；

2、点击「数据-合并表格-多个工作表合并成一个工作表」；

3、勾选需合并的工作表即可。

提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。

我们在利用WPS表格和Excel进行办公的时候，经常会需要将多个表格的数据合并起来进行观察和计算，那么你知道如何将多个工作簿合并到同一个工作簿中吗？一起来看一下吧！

01

首先我们打开任意一个工作簿。

02

找到开始选项卡。

03

可以看到文件夹中有三个工作簿，我们需要把它们合并到一个工作簿中。

04

单击开始选项卡下的智能工具箱选项。

05

在下方选项卡单击工作簿，在下拉菜单中选择工作簿合并。

06

这时会d出一个新的对话框，我们单击其中的添加文件，把需要合并的工作表都选中后，单击确定。

07

这个时候我们会看到,之前选中的工作簿就自动生成了一个新的工作簿，不同的工作簿分布在不同的Sheet表里面，要进行数据的对比之列的 *** 作就简单直观多了。

1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击Sheet1

2、选择查看代码（PS：excel有着一项，WPS没有）

3、将下列代码复制到文本框中：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

ApplicationScreenUpdating = False

MyPath = ActiveWorkbookPath

MyName = Dir(MyPath & "\" & "xls")

AWbName = ActiveWorkbookName

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = WorkbooksOpen(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1)ActiveSheet

Cells(Range("B65536")End(xlUp)Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To SheetsCount

WbSheets(G)UsedRangeCopy Cells(Range("B65536")End(xlUp)Row + 1, 1)

Next

WbN = WbN & Chr(13) & WbName

WbClose False

End With

End If

MyName = Dir

Loop

Range("B1")Select

ApplicationScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。

1/7

首先将需要合并的excel所有表格存放在同一个文件夹中

2/7

然后再该文件夹中新建一个空白的excel表格

3/7

然后打开新建的excel表格，找到sheet1，然后在sheet1上面鼠标单击右键，点击“查看代码”

4/7

点击“查看代码”后，就会出现下图中的框框，然后在右边框框中填入下列代码：

Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

ApplicationScreenUpdating = False

MyPath = ActiveWorkbookPath

MyName = Dir(MyPath & "\" & "xls")

AWbName = ActiveWorkbookName

Num = 0

Do While MyName <> ""

If MyName <> AWbName Then

Set Wb = WorkbooksOpen(MyPath & "\" & MyName)

Num = Num + 1

With Workbooks(1)ActiveSheet

Cells(Range("A65536")End(xlUp)Row + 2, 1) = Left(MyName, Len(MyName) - 4)

For G = 1 To SheetsCount

WbSheets(G)UsedRangeCopy Cells(Range("A65536")End(xlUp)Row + 1, 1)

Next

WbN = WbN & Chr(13) & WbName

WbClose False

End With

End If

MyName = Dir

Loop

Range("A1")Select

ApplicationScreenUpdating = True

MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

End Sub

5/7

代码填入好后，如果代码出现红色的，那说明改代码有问题，需要更改，反之正常。

6/7

确定代码无误后，再点击下图中箭头所指的图标或者是按快捷键F5，即可开始excel表格的合并运行

7/7

若结果d出下面的对话框，这说明合并成功，反之就没有

建议选择“数据”选项下的“合并计算”，将同一工作簿下的多个有相同结构的工作表汇总到一个工作表下。

选择第一个工作表数据区域，“添加”然后选择第二个……勾选“首行”“最左列”，并勾选“创建指向源数据的链接”，确定。

1首先,在表格上方找到“智能工具箱”,点击;

2接着,在最左边找到“工作表”,并点击,选择其下列表的“工作簿合并”。

3然后在其所属方框中,点击“添加文件”,找到所需要合并的文档;

4选中第一个文档,按shift键的同时,再选中最后一个文档,快速选中全部文档,打开;

5接着便是跳转回“工作簿合并”,选择“开始合并”等待处理结果;

首先打开电脑找到桌面上的wps文件，打开后创建一个新的表格，再在右上角找到文档助手。

然后我们在文档助手的子菜单中找到工作表选项并点击，接下来会d出一个菜单栏，我们在d出的菜单栏中找到工作簿合并，我们点击这个按钮。

紧接着我们在d出的工作簿合并菜单栏中选择添加文件，我们只需要找到我们想要添加的文件并打开就可以啦。

最后点击右下角的开始合并按钮，这样我们的两个工作簿就合并成功啦！

END

总结

1、新建一个表格，找到文档助手。

2、点击工作表——工作簿合并。

3、选择要合并的表格点击开始合并。

1打开原始表格数据，本表中一共有前三个月的会员积分数据，现在需要统计到第一季度下面；

2选择第一季度列表下面的表格，点击“数据”->“合并计算”；

3d出对话框，选择函数“求和”；

4然后再点击下图按钮，进行数据范围选择；

5选择表格数据；

6然后点击下图按钮；

7返回窗口后，点击“添加”，然后重复步骤4、5、6、7进行表格选取；

8三个月份的表格选取结束后，把窗口下方的“最左列”选中，点击“确定”；