-
1.如何将wps表格中的多个sheet合并成一个
原发布者：明明不在这儿
在工作当中会遇到很多个格式一样的表格在多个表里面，有时候就需要把他们合并在一起，但是复制粘贴，不仅工作量大，还容易出错，所以，给大家一个简单的方法，可以很容易解决问题，可能在用词上不当，毕竟是为了工作才弄的，还请指教改正。工具：WPS,VBA6(1)打开需要合并的表格，保证表格格式后缀为.xlsm(2)在所以文档最后新建一个sheet表格，命名汇总，并将格式一样的表头复制到该表格（3）ALT+F11，打开源代码，或者按照以下截图找到开发工具-VB编辑器打开，找到汇总，双击进入代码编辑区，按照表格数据复制粘贴以下代码：Sub合并sheets()n=153'源表个数，根据需要修改！nstart=6'每个单表数据的起始行数，根据需要修改！k=nstart'目标表的行标Fori=1Tonirow=nstart'行标WhileSheets(i).Cells(irow+1,1)>；""'后面个1以第1列数据为结束标示，确定源表的行数，根据需要修改！irow=irow+1WendSheets(i).Rows(nstart&":"&irow).Copy'复制源数据行Sheets(n+1).ActivateSheets(n+1).Cells(k,1).SelectActiveSheet.Paste'粘贴数据k=k+irow-nstart+1NextiEndSub此处将需要修改的几个代码数据，解释如下：Sub合并sheets()n=3'源表个数，根据需要修改，在我这个例子，汇总前面只有3个表格，所以此处n=3nstart=3'每个
2.WPS怎么把几个工作表合并到一个工作表
以WPS 2019版本为例：
关于WPS怎么把几个工作表合并到一个工作表，您可使用WPS参考下述步骤完成操作：
1、打开「表格（Excel）」文档；
2、点击「数据-合并表格-多个工作表合并成一个工作表」；
3、勾选需合并的工作表即可。
提示：在设置合并工作表时也可添加其他「表格（Excel）」文档来选择其他文档的工作表来合并。
3.wps表格的工作薄怎样把两个工作薄合并成sheet1和sheet2
1、打开原始表格数据，本表中一共有前三个月的会员积分数据，现在需要统计到第一季度下面；
2、选择第一季度列表下面的表格，点击“数据”->“合并计算”；
3、弹出对话框，选择函数“求和”；
4、然后再点击浏览旁边的方框按钮，进行数据范围选择；
5、选择表格数据；
6、然后点击下图按钮；
7、返回窗口后，点击“添加”，然后重复步骤4、5、6、7进行表格选取；
8、三个月份的表格选取结束后，把窗口下方的“最左列”选中，点击“确定”；
9、第一季度数据表格合并完成；
4.WPS怎么把几个工作表合并到一个工作表
1、在wps表格中找到【数据】点击打开【数据】，找到【数据】中的【合并计算】点击打开。
2、在此之前，首先要将合并计算后的数据输出的区域选定，否则可能会提示操作错误。
3、点击合并计算后，弹出合并计算选项框，在第一个选项框中，可以选择计算公式，下拉菜单中有很多计算公式，在这里以求和举例。
4、下面是添加引用位置。首先在sheet1中选择要添加的源数据，点击添加按钮。
5、之后，在sheet2中选中需要添加到合并计算的源数据，添加完后，可以点击合并计算。
5.wps工作表怎么合并为一个工作表
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
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(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 Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation， "提示"
End Sub
4、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
