返回目录：office365
以WPS 2019版本为例：
如需把多个excel表格合并到一个表百格里，可使用WPS2019中已自带度的「文档拆分合并」功能：
操作步骤：
1）打问开其中一份「表格（Excel）」文档；
2）点击答「特色应用-拆分合并-合并」；
3）点击添加需合专并文件，设置合并文件需合并的页数范围即可将多个属文档合并为一份。
建议将两个工作表复制到一个工作表中，并作数据透视表处理，将相同的内容合计在一起。
新建一个总表，准备汇总
Alt+F11，VBA快捷键，在弹出的新界面中，左键双击坐标的名为”总表“的工作表，使后续的代码是复制到这个工作表中。
在右边的空白区域，复制下面的代码：
Sub main()
For Each sh In Sheets
If sh.Name <> "总表" Then
i = sh.Range("D65536").End(3).Row
k = Range("A65536").End(3).Row
sh.Range("A2:D" & i).Copy Range("A" & k + 1)
End If
Next
End Sub
代码详解：1.Sub main()——其中Sub 跟括号是固定的，main是宏名，可以随便更改（其实完全没有必要多此一举，这里可以不做任何修改）2.For Each sh In Sheets——这是遍历全部的工作表，这里就要注意，如果你的工作表中包含一些，不需要汇总数据的工作表，那么就需要将源数据表备份一份，然后将不需要汇总数据的工作表都删除掉，只剩下总表以及需要汇总数据的工作表（当然，还有其他办法，这里只讲解最简单地做法）3.If sh.Name <> "总表" Then——这里是判断工作表的名字是不是”总表“，如果是总表，就不汇总数据，本例中总表的名字就是”总表“，如果你的工作表中，总表名字是其他的，就将这里的”总表“改为你的工作总表明细；4.i = sh.Range("D65536").End(3).Row——这里要注意了"D65536"，是为了获得最后一个不为空的行的行号，这里用了D列，因为本例中的D列是有数据的
，在实际的使用过程中，一定要选择一个最后一行有数据的列，否则不能获得最大行号（假如只有2列，那么这里的D可以改为B或者A）5.k = Range("A65536").End(3).Row——这里是获得总表的最大行号，以便复制的数据，能够依次往下粘贴；（这里的A65536跟上面提到的是一个道理，总表中的A列最后一行不是空的）6.sh.Range("A2:D" & i).Copy Range("A" & k + 1)——这里要注意“A2:D”&i是要复制的区域，因为本例中只有A-D列，而且数据是从第2行开始的，所以这里是A2:D，那假如是从E列第10行开始，到Z列结束的区域，就应该改为E10：Z；Range("A" & k + 1)——这里是从总表的A列开始粘贴，假如是从D列开始，那么这里的A改为D即可7.End If Next End Sub——这些是结束判断、继续循环和程序结束，都不需要更改。
保存e799bee5baa6e58685e5aeb9365执行代码
你是要算汇总数吗？
如果所有的表的格式，以及各单元格的位置都相同，那低手有个不用编程的法：
把所有的表都复制到一个工作簿中zd。也不是很麻烦，因为复制的目标既可以是当前工作簿，也可以是已经打开的版其他工作簿。
收集完所有表之后，再从中任选一张，复制到所有工作表的最后，作为汇总表，清空里面的数据。
在第一个数据单元格里，输入＝号权，点击第一张分表的对应单元格，按住Shift，再点击最后一张分表的对应单元格，那这个单元格就是所有分表相应单元格的和。
将这个单元格复制到汇总表的所有数据单元格。