Word表格怎样合并多个表格_跨页表格数据汇总【合并】

跨页Word表格合并有四种方法：一、手动复制粘贴，注意清除重复表头并统一行高；二、用Excel中转，通过FILTER函数剔除空行后粘贴回Word；三、邮件合并法，将各表导出为CSV后批量生成结构化大表；四、VBA脚本自动提取多表数据至新表。

在Word里处理分散的表格，比如跨了好几页的采购清单、分段填写的问卷，或者不同章节里的数据表，想把它们整合成一个连贯的大表，这事儿确实有点磨人。格式断裂、行高对不齐、表头重复出现，都是常遇到的坎儿。别急，下面这四条路径，能帮你把零散的数据规规矩矩地汇总到一起。

一、手动复制粘贴合并（适用于少量表格且格式要求不高）

这招最直接，说白了就是“复制”加“粘贴”，不涉及任何公式或动态链接。适合那种一次性整理完、以后基本不用再动的场景。操作虽然简单，但有几个细节得盯紧了，尤其是列对齐和清理多余的表头。

1、 先搞定第一个表。点击表格左上角的“+”符号，或者直接用鼠标拖选整个表格，然后按Ctrl+C复制。

2、 把光标挪到你希望合并表格出现的地方，比如文档末尾的新段落，按Ctrl+V粘贴。

3、 对第二个表格如法炮制。复制后，把光标精准定位到刚才粘贴好的表格最后一行下方，再执行粘贴。

4、 关键一步来了：检查一下，新贴过来的部分开头有没有带着原来的表头？如果有，选中那整行，直接按Delete键清理掉。

5、 最后统一行高。在任意表格上右键，选择“表格属性”，切换到“行”选项卡，记得取消勾选“指定高度”，让行高自适应内容，这样看起来就整齐多了。

二、使用Excel中转合并（适用于结构一致、需保留计算逻辑的跨页表格）

如果你的Word表格数据本身来自Excel，或者合并后还需要进行求和、计数这些运算，那么Word本身的功能就有点捉襟见肘了。这时候，把Excel请出来当“中间人”，是既保数据完整、又能算得明白的聪明办法。

1、 回到Word，依次选中每个需要合并的表格，右键“复制”。

2、 打开一个空白的Excel工作簿。从Sheet1的A1单元格开始，逐个粘贴Word表格。每贴完一个，最好在下面空一行，方便后续区分。

3、 得确认所有表格的列标题是不是一模一样。比如都是“序号、品名、数量、单价、金额”，如果有出入，务必先手动统一好。

4、 选中包含所有数据和间隔行的整个区域，按Ctrl+T，把它转换成正式的“Excel表格”，并给这个表起个名，比如“WordSourceData”。

5、 新建一个工作表，输入核心公式：=FILTER(WordSourceData, WordSourceData[序号]<>“”)。这个公式的作用很巧妙，它能自动过滤掉那些空行，只把有效的数据行合并到一起。

6、 复制合并后的结果，回到Word文档。右键选择“选择性粘贴”，然后点选“Microsoft Excel 工作表对象”。这样贴回去，既能保持格式，数据也还是可编辑的。

三、通过邮件合并功能模拟汇总（适用于具有唯一标识字段的多表格）

这个方法听起来可能有点“跨界”，但用好了效率奇高。它特别适合这种情况：每个Word表格都是一条独立记录（比如每个员工一张信息表），而且它们都包含相同的字段。它的本质不是把表格“拼”起来，而是把数据结构化地“重组”出来。

1、 准备工作：把每个需要合并的Word表格，单独另存为一个新文档，文件名最好带上有序的标识，比如“表1_华东区.docx”。

2、 数据清洗：用记事本打开这些文档，利用查找替换功能，把所有的制表符替换成英文逗号，并删除表格边框相关的字符。最后，将文件另存为.csv格式。这一步是把表格数据转换成邮件合并能识别的标准数据源。

3、 在Word中新建一个文档，找到“邮件”选项卡，点击“开始邮件合并”，在下拉菜单中选择“目录”。

4、 点击“选择收件人”，然后选“使用现有列表”，把刚才保存的所有.csv文件依次添加进来。系统会自动识别这些文件里共同的字段。

5、 插入一个临时的两行表格作为“占位符”：第一行写上字段名（如“工号”“姓名”），第二行则插入对应的域代码（如«工号»«姓名»）。

6、 点击“完成并合并”，选择“编辑个人文档”。瞬间，一个包含了所有记录的新表格就生成了。最后，删掉那个临时占位表格，保留最终的结果即可。

四、利用VBA脚本批量合并（适用于大量跨页表格且需重复操作）

当文档动辄十几页、每页都有表格需要合并时，再用手工操作就太不划算了。这时候，VBA脚本才是终极武器。它可以自动遍历文档里每一个表格，把数据提取出来，规整到一个新表里。当然，运行前记得在Word设置里启用“开发工具”并信任宏。

1、 按下Alt+F11，打开VBA编辑器。在左侧的“项目资源管理器”里，右键点击“Normal”，选择“插入”→“模块”。

2、 在新出现的代码窗口里，粘贴以下语句来初始化：Dim tbl As Table, newTbl As Table, i As Integer: Set newTbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:=5)

3、 继续输入核心循环代码：For Each tbl In ActiveDocument.Tables: If tbl.Index > 1 Then For i = 2 To tbl.Rows.Count: newTbl.Rows.Add: newTbl.Cell(newTbl.Rows.Count, 1).Range.Text = tbl.Cell(i, 1).Range.Text: Next i: End If: Next tbl

4、 关闭编辑器，回到Word界面。按Alt+F8调出宏对话框，选中你刚刚创建的宏，点击“运行”。

5、 脚本执行完毕后，一个合并好的新表格就会出现在光标当前位置。所有源表格从第2行开始的数据都会被顺序填入，首行是空着的，方便你手动添加一个总标题。