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表格的工作薄怎样把两个工作薄合并成sheet1和sheet2
1、打开原始表格数据，本表中一共有前三个月的会员积分数据，现在需要统计到第一季度下面；
2、选择第一季度列表下面的表格，点击“数据”->“合并计算”；
3、弹出对话框，选择函数“求和”；
4、然后再点击浏览旁边的方框按钮，进行数据范围选择；
5、选择表格数据；
6、然后点击下图按钮；
7、返回窗口后，点击“添加”，然后重复步骤4、5、6、7进行表格选取；
8、三个月份的表格选取结束后，把窗口下方的“最左列”选中，点击“确定”；
9、第一季度数据表格合并完成；
3.用wpsexcel时,如何把同一个工作簿里多个相同格式的sheet工作表内
1、首先点击excel菜单栏中的数据。
2、然后选择合并表格按钮的下拉菜单，点击多个工作表，合并成一个工作表。
3、此时合并成一个工作表的对话框就会弹出来，在需要合并的工作表前面打一个勾，然后点击开始合并。
4、合并完成，这个工作簿里面还包括一个已经合并成功的总表。
4.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、点击运行、一段时间（取决于表格的大小和多少）后，合并完成了。
