word中删除表格重复行有三种方法：一是用vba宏（如deletetableduplicaterowsplus）逐行比对并删除完全相同的冗余行；二是复制到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、Excel提示已删除重复行数量后，按 Ctrl + C 复制剩余唯一行，返回Word中粘贴替换原表格。
三、手动标记+排序辅助识别删除
当表格行数较少（如不超过50行）且需人工核验重复内容时，可通过添加辅助列并排序，使重复行相邻排列，便于视觉识别与手动清除。该方法无需编程或外部工具，安全性高，适合敏感文档处理。
1、在表格末尾插入一列，标题命名为“标识码”。
2、在第二行第一列输入公式：=CONCATENATE(A2,B2,C2,...)（依实际列数补全，如A2至E2）。
3、双击填充柄向下复制该公式至所有数据行。
4、选中整列“标识码”，右键“排序”→“升序”，使相同标识码的行集中排列。
5、从倒数第二行开始向上逐行比对“标识码”列，若与上一行相同，则选中当前整行，按 Delete 键删除。
