如何将大型Excel数据按首列匹配规则填充到Word文档的多个表格中

方案1：VBA自动批量填充（推荐，一次配置可重复使用） #

适合需要长期、高频处理该类需求的场景，操作一次后后续仅需一键运行即可完成填充。

操作步骤： #

1. 先整理你的Excel数据源，确保匹配列（即本场景的公司名列）没有重复值，保存后关闭Excel文件
2. 打开需要填充的Word文档，按下Alt + F11调出VBA编辑器
3. 在左侧项目资源管理器右键点击当前Word文档，选择「插入」→「模块」
4. 将以下代码粘贴到模块窗口中，修改代码里的EXCEL_PATH常量为你自己的Excel文件实际路径，若你的数据源字段/列数更多，对应调整VLookup的返回列序号即可

Sub 填充Word表格()
    Dim excelApp As Object, wb As Object, ws As Object
    Dim tbl As Table, rw As Row
    Dim companyName As String, firstName As String, lastName As String
    ' 这里替换成你的Excel文件完整路径
    Const EXCEL_PATH As String = "C:\你的Excel文件路径\数据源.xlsx"
    
    ' 创建Excel对象
    Set excelApp = CreateObject("Excel.Application")
    excelApp.Visible = False
    Set wb = excelApp.Workbooks.Open(EXCEL_PATH)
    Set ws = wb.Sheets(1) ' 默认取第一个工作表，可修改为你的实际工作表名
    
    ' 遍历Word里所有表格
    For Each tbl In ActiveDocument.Tables
        ' 跳过表头，从第二行开始遍历
        For Each rw In tbl.Rows
            If rw.Index > 1 Then
                companyName = rw.Cells(1).Range.Text
                ' 去除Word单元格末尾自带的格式标记
                companyName = Left(companyName, Len(companyName) - 2)
                ' 到Excel里匹配对应数据
                On Error Resume Next
                firstName = WorksheetFunction.VLookup(companyName, ws.Range("A:C"), 2, False)
                lastName = WorksheetFunction.VLookup(companyName, ws.Range("A:C"), 3, False)
                On Error GoTo 0
                ' 填充到Word表格单元格
                If Not IsError(firstName) Then rw.Cells(2).Range.Text = firstName
                If Not IsError(lastName) Then rw.Cells(3).Range.Text = lastName
                ' 重置变量避免匹配错误
                firstName = ""
                lastName = ""
            End If
        Next rw
    Next tbl
    
    ' 清理Excel对象
    wb.Close SaveChanges:=False
    excelApp.Quit
    Set ws = Nothing
    Set wb = Nothing
    Set excelApp = Nothing
    MsgBox "填充完成！"
End Sub

5. 按下F5运行代码即可完成所有表格的自动填充，之后可以把这个Word存为启用宏的文档（.docm），下次Excel数据源更新后直接打开文档运行代码即可。

方案2：无代码手动填充（适合临时少量文档） #

如果仅单次处理少量内容不想启用宏，可以用链接粘贴的方式操作：

• 打开Excel数据源，选中整个数据区域，按下Ctrl+C复制
• 切换到Word，点击需要填充的表格单元格，右键选择「选择性粘贴」→ 勾选「粘贴链接」→ 选择「无格式文本」，找到对应匹配的单元格粘贴即可
• 后续Excel数据源更新的时候，全选Word文档按下F9就能一键更新所有链接的内容。

内容的提问来源于stack exchange，提问作者Worker 123