处理Word表格时，最让人头疼的情况之一，就是发现里面混进了好几行一模一样的数据。

这可能是数据录入时手滑重复了，也可能是合并多个文档时不小心带进来的“副本”。无论原因如何，保留唯一记录、清除这些冗余行，都是整理文档时的刚需。

别担心，下面这三种方法，从自动到手动，总有一款能帮你干净利落地解决问题。

一、使用VBA宏自动删除重复行

如果你的表格行数不少，结构也清晰，想一次性批量搞定，那么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 运行宏。
5. 稍等片刻，宏执行完毕，重复行即被清理。最后关闭编辑器并保存Word文档。

二、转换为Excel后利用“删除重复项”功能

Word本身不擅长跨列比对和精准去重。但Excel是这方面的专家。借助Excel的“删除重复项”功能，能确保所有列的值都完全匹配才判定为重复，操作直观，结果可预览。

操作步骤

1. 在Word中选中整个表格，按 Ctrl + C 复制。
2. 打开Excel，新建工作表，右键点击单元格，选择“选择性粘贴”中的“匹配目标格式”或直接粘贴。
3. 选中粘贴过来的数据区域，切换到“数据”选项卡，点击“删除重复项”按钮。
4. 在弹出的对话框中，勾选所有列名，确认“数据包含标题”选项正确，点击“确定”。
5. Excel会提示删除了多少行重复项。处理完成后，将剩下的唯一行数据按 Ctrl + C 复制。
6. 回到Word文档，粘贴替换掉原来的旧表格即可。

三、手动标记+排序辅助识别删除

当表格行数不多（如不超过50行），或数据敏感需人工核验时，手动方法更稳妥、更让人放心。

此方法的精髓在于：通过添加辅助列，让所有重复行自动排列在一起，便于识别。

操作步骤

1. 插入辅助列：在表格最右边插入一列，命名为“标识码”。
2. 生成标识码：在第二行（假设第一行为标题）的“标识码”列输入公式：=CONCATENATE(A2,B2,C2,...)。请根据实际列数补全A2、B2、C2等参数，目的是将该行所有单元格内容连接成一个字符串。
3. 填充公式：双击该单元格右下角的填充柄，将公式快速应用到所有数据行。
4. 排序标识列：选中整个“标识码”列，右键选择“排序” → “升序”。此时，内容完全相同的行，其“标识码”也会相同，并排列在一起。
5. 手动检查删除：从表格底部开始，逐行向上检查“标识码”列。若当前行标识码与上一行完全相同，则当前行为重复行。选中该整行，按键盘上的 Delete 键删除。

此方法虽需手动操作，但全程可控，确保万无一失。

《夸克》非常好用的免费AI浏览器

下载APP查看