本文介绍三种高效去除Word表格中重复数据的实用方法：使用VBA宏自动清理、借助Excel的“删除重复项”功能，以及通过手动添加标识码并排序辅助识别删除。无论数据量大小或操作习惯如何，都能找到适合的解决方案。
当Word表格中出现多行内容完全一致的情况时，通常源于数据重复录入或文档合并操作。为保持数据整洁并提升可读性，可采取以下几种方式精准剔除冗余行。
一、利用VBA宏实现自动去重
此方法通过编写脚本逐行扫描表格内容，自动识别并删除完全相同的记录，仅保留首次出现的行。特别适合处理结构规整、数据量较大的表格，实现一键批量清理。
1. 将光标定位至待处理的表格内，按下 Alt + F11 键启动VBA编辑器。
2. 在左侧“工程资源管理器”面板中，右键单击当前文档名称，依次选择“插入”→“模块”，创建新模块。
3. 将下方代码完整复制到右侧代码编辑区：
Sub DeleteTableDuplicateRowsPlus()
Dim objTable As Table
Dim objRow As Range
Dim objPreviousRow As Range
Dim i As Long, j As Long, iMax As Long
Dim strLastRowCell As String, strCell As String, strCellPrevious As String
Set objTable = ActiveDocument.Tables(1)
Application.ScreenUpdating = False
For i = objTable.Rows.Count To 2 Step -1
Set objRow = objTable.Rows(i).Range
strLastRowCell = LCase(objRow.Text)
For j = i – 1 To 1 Step -1
Set objPreviousRow = objRow.Previous(wdRow)
strCellPrevious = LCase(objPreviousRow.Text)
If strLastRowCell = strCellPrevious Then
objPreviousRow.Rows(1).Delete
End If
Next j
Next i
Application.ScreenUpdating = True
End Sub
4. 按下 F5 键运行该宏，处理完成后关闭编辑器并保存文档即可。
二、借助Excel的“删除重复项”功能
由于Word本身缺乏跨列全行比对的能力，可将表格转移至Excel中利用其内置的去重工具完成操作。该方法判断逻辑严谨，支持预览结果，适合对准确性要求较高的场景。
1. 在Word中选中整个表格，使用 Ctrl + C 进行复制。
2. 打开Excel并新建一个工作表，右键点击目标单元格，选择“选择性粘贴”中的“匹配目标格式”或直接粘贴。
3. 选中已粘贴的数据区域，点击顶部菜单栏的“数据”选项卡，找到并点击“删除重复项”按钮。
4. 在弹出的设置窗口中勾选所有列标题，并根据实际情况确认是否勾选“数据包含标题”，然后点击“确定”。
5. 待系统提示已移除的重复项数量后，使用 Ctrl + C 复制清理后的数据，返回Word文档替换原有表格内容。
三、手动添加标识码结合排序识别
对于数据量较小（例如少于50行）且需要人工复核的表格，可通过插入辅助列生成唯一标识，再通过排序使重复行相邻，从而方便逐条检查与删除。该方法无需编程知识，操作安全可控。
1. 在表格右侧新增一列，并将其标题设为“标识码”。
2. 在第二行对应的标识码单元格中输入公式：=CONCATENATE(A2,B2,C2,…)（请根据实际列范围调整，如A2至E2）。
3. 双击该单元格右下角的填充柄，将公式快速应用到所有数据行。
4. 选中“标识码”整列，右键选择“排序”→“升序”，让具有相同标识码的行聚集在一起。
5. 从倒数第二行开始向上逐行检查，若当前行的标识码与上一行一致，则选中该行并按 Delete 键将其删除。
1
