如何在 Excel 中删除重复项，同时保留该行的其余数据？
在日常数据处理中，Excel 的“删除重复项”功能通常会整行删除，可能破坏其他列的数据乃至整个工作表的结构。本文为您介绍多种方法，可在指定列中仅清除重复值，同时完整保留每行的其余数据——包括结合筛选器的公式法、VBA 代码以及 Kutools 加载项。每种方案均配有典型应用场景、优缺点及注意事项，助您快速选出最适合自身需求的高效解决方案。
 |  |
使用 Kutools for Excel 删除重复但保留该行其余值（2 步）
使用筛选器删除重复但保留该行其余值
一种可靠的方法是将简单公式与 Excel 的筛选功能相结合，在清除重复值的同时完整保留数据结构。该方法尤其适用于需要直观识别并选择性地从单列中删除重复项的场景，确保每行中的其他信息不受影响。此技术适用于中小型数据集，并在整个删除过程中赋予用户完全的控制权。
1. 选择一个紧邻数据区域的空白单元格（例如，若数据从 A2 开始，则选择 D2），输入公式：=A3=A2. 该公式会将每个单元格与其上方单元格进行比对，快速标记重复项。根据需要向下拖动填充柄，即可将公式应用至其余行。效果如下图所示：
2. 接下来，选中整个数据区域（包括新添加的公式列），然后点击数据> 筛选 以激活筛选功能，即可快速筛选出被标记为重复的行。
3. 点击公式列（例如 D 列）中的筛选图标，并在下拉列表中仅勾选 TRUE，即可显示所有重复项（除最后一次出现外）。
4. 点击确定后，所有已识别的重复值将立即显示。选中这些重复单元格，按下 Delete 键，即可轻松清除重复内容，且不会影响所在行的其他数据。如此一来，既完整保留了行数据结构，又精准清除了指定列中的重复值。请参考下方截图：
提示：请务必仅选中重复单元格（而非整行），以确保只删除目标值。
5. 要恢复常规视图，请再次点击数据> 筛选 以关闭筛选功能。如不再需要辅助公式列，可将其删除或清空。现在，指定列中的重复项已被清除，其余所有行数据均保持不变。
优点：无需使用 VBA 或加载项；步骤清晰，手动操作出错后易于修正。
缺点：无法完全自动化——需手动清理；处理超大数据集时效率较低。
使用 VBA 删除重复但保留该行其余值
VBA 提供了一种更自动化的列重复项清除方法，在精准删除重复内容的同时，完整保留同行中的其他所有数据。该方法特别适合处理重复性高的清理任务，尤其适用于数据量庞大或需频繁执行删除操作的场景。借助 VBA，不仅能显著减少手动操作带来的错误，还能节省宝贵时间，但建议由熟悉 Excel 基础脚本的用户使用。
1. 按 Alt + F11 即可打开 Microsoft Visual Basic for Applications 编辑器窗口。
2. 在 VBA 窗口中，依次点击插入> 模块，然后将以下代码复制粘贴到新模块中。此代码可从您选定的区域中移除重复值，同时保留行内所有其他信息：
VBA：删除重复但保留该行其余值
Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918
Dim xRow As Long
Dim xCol As Long
Dim xrg As Range
Dim xl As Long
On Error Resume Next
Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
xRow = xrg.Rows.Count + xrg.Row - 1
xCol = xrg.Column
'MsgBox xRow & ":" & xCol
Application.ScreenUpdating = False
For xl = xRow To 2 Step -1
If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
Cells(xl, xCol) = ""
End If
Next xl
Application.ScreenUpdating = True
End Sub
3. 要运行脚本，请按 F5 或点击运行按钮，系统将弹出对话框提示您选择要移除重复值的区域，然后点击确定确认。
4. 宏将自动运行，在指定区域内删除重复值并将其替换为空白单元格，同时完整保留其他所有行的内容，从而高效维护工作表的结构。
优点：处理大型或重复性数据集效率极高，可最大限度减少手动操作。
缺点：需启用宏并具备基础 VBA 知识；编辑通常不可逆，建议在备份文件上操作。
使用 Kutools for Excel 删除重复但保留该行其余值
如果您已安装 Kutools for Excel，即可轻松简化从区域或列中移除重复项的操作，同时完整保留其余行数据。Kutools for Excel 提供直观高效的重复数据处理功能，特别适合经常需要清理 Excel 数据列表的用户！
安装 Kutools for Excel 后，您可以根据数据情况和个人偏好选择以下两种方法之一：
方法 1：合并相同单元格（2 步）
1. 选中您希望去重的重复值，然后导航至 Kutools > 合并和拆分 > 合并相同单元格。此操作可将连续的重复值合并为单个单元格，轻松清除除首次出现外的所有重复项。
2. 合并后，选中已合并的单元格，依次点击开始> 合并后居中> 取消合并单元格，即可将其还原为标准单元格。此时重复项将显示为空白单元格，每组仅保留唯一值。
结果将类似于下方示例：重复项已被移除，而行中的其余值均得以保留：
方法 2：选择重复/唯一单元格（4 步）
1. 选中您要移除重复值的整个列表或区域，点击 Kutools > 选择 > 选择重复/唯一单元格。
2. 在选择重复/唯一单元格对话框中，于规则部分选择 重复项（除第 1 个外）。此操作将高亮显示首次出现之后的所有重复实例。
3. 点击确定，系统将提示您已选中多少个重复单元格。再次点击确定即可确认。
4. 只需按下 Delete 键，即可移除这些已选中的重复值，而不会影响所在行的其余数据。
优点：无需公式或编码，操作快捷、界面友好，还支持批量处理。
缺点：需额外安装。
总结与故障排除：上述每种方案均提供了在 Excel 中移除重复值同时保留其余行数据的实用方法。筛选器与公式法适合需要透明、分步操作的手动处理；VBA 适用于批量或重复性清理任务；而 Kutools 则为常规用户带来便捷高效的操作体验。执行批量操作前，请务必仔细核对所选区域并创建备份副本，并根据自身工作流程及对公式或代码的熟悉程度选择合适方案。如遇遗漏重复项或意外数据丢失等问题，请检查辅助列是否准确、确认排序是否正确，并在删除前核实所选内容无误。
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱