如何删除重复项，但保留Excel中其余的行值？

在Excel中，当您应用“删除重复项”功能时，它将删除所有重复值并向上移动，如屏幕截图1所示。但是，在某些情况下，您可能希望删除重复项，但保留其余的行值，如屏幕截图2所示。现在，在这种情况下，我将介绍一些删除重复项但将其余部分保留在Excel中的技巧。

删除重复项，但使用过滤器保留其余的行值（3个步骤）

删除重复项，但使用VBA保留其余的行值（4个步骤）

删除重复项，但使用Kutools for Excel保留其余的行值（2个步骤）

删除重复项，但使用过滤器保留其余行值

使用公式和过滤器功能，您可以快速删除重复项，但要保持休息。

1.在数据范围（例如，D2）旁边选择一个空白单元格，键入公式 = A3 = A2，将自动填充手柄向下拖动到所需的单元格。看截图：
doc删除重复项以保持休息3

2.选择所有数据范围，包括公式单元格，然后单击数据 > 筛选器 启用 筛选器 功能。看截图：
doc删除重复项以保持休息4

3。点击 筛选器图标 在D列（公式列）中，然后检查 TUR从下拉列表E中查看屏幕截图：
doc删除重复项以保持休息5

4。点击 OK，然后列出所有重复项，然后选择所有重复值，按删除删除它们的关键。看截图：
doc删除重复项以保持休息6

5。点击数据 > 筛选器 禁用 筛选器，然后根据需要删除公式。您可以看到所有重复项均已删除，其余值保留在该行中。
doc删除重复项以保持休息7

删除重复项，但使用VBA保留其余的行值

在Excel中，有一个VBA代码，该代码也可以删除重复项，但保留其余的行值。

1。按 Alt + F11键 显示键 Microsoft Visual Basic应用程序 窗口。

2。点击插页 > 模e，然后将以下代码粘贴到模块.

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

doc删除重复项以保持休息8

3。按 F5 键运行代码，会弹出一个对话框，提醒您选择一个范围以从中删除重复的值。看截图：
doc删除重复项以保持休息9

4。点击 OK，现在已从选择中删除重复的值，并保留空白单元格。
doc删除重复项以保持休息10

删除重复项，但使用Kutools for Excel保留其余的行值

如果你有 Kutools 为 Excel –安装了方便且功能强大的添加工具，您可以通过两种方式快速删除重复项，但保留剩余值或行值。

Kutools for Excel, 与超过 300 方便的功能，使您的工作更加轻松。

免费下载
30天内免费提供全功能

安装后 Kutools for Excel，请执行以下操作:(立即免费下载Kutools for Excel！）

方法1：合并相同的单元格（2个步骤）

1.选择重复的值，然后单击 库工具 > 合并与拆分 > 合并相同的单元格。看截图：
doc删除重复项以保持休息11

2.然后，重复值已合并到一个单元格中。然后点击主页 > 合并与中心 > 取消单元格拆分。看截图：
doc删除重复项以保持休息12

现在结果显示如下：
doc删除重复项以保持休息13

方法2：选择重复和唯一单元格（4个步骤）

1.选择要从中删除重复项的数据列表，然后单击 库工具 > 选择 > 选择重复和唯一单元格。看截图：
doc删除重复项以保持休息14

2。在里面 选择重复和唯一单元格 对话框，检查 重复（第一个除外） 在选项第部分。看截图：
doc删除重复项以保持休息15

3。点击 Ok，会弹出一个对话框，提醒您选择了多少个重复项，然后单击 OK 关闭它。看截图：
doc删除重复项以保持休息16

4.然后按删除键以删除选定的重复值。

doc删除重复项以保持休息17

提示： 同 Kutools for Excel“ 高级组合行 实用程序，您可以合并重复的值，然后在另一列上进行一些计算，如下图所示。它在30天内无限制地提供完整功能，请下载并立即免费试用。

最佳办公效率工具

Kutools for Excel解决了您的大多数问题，并使您的生产率提高了80％

重用: 快速插入 复杂的公式，图表 以及您以前使用过的任何东西；加密单元带密码创建邮件列表并发送电子邮件...
超级公式栏（轻松编辑多行文本和公式）；阅读版式（轻松读取和编辑大量单元格）；粘贴到过滤范围...
合并单元格/行/列不会丢失数据；拆分单元格内容；合并重复的行/列...防止细胞重复；比较范围...
选择重复或唯一行; 选择空白行（所有单元格都是空的）；超级查找和模糊查找在许多工作簿中；随机选择...
确切的副本多个单元格，无需更改公式参考；自动创建参考到多张纸；插入项目符号，复选框等...
提取文字，添加文本，按位置删除，删除空间; 创建和打印分页小计；在单元格内容和注释之间转换...
超级滤镜（将过滤方案保存并应用于其他工作表）；高级排序按月/周/日，频率及更多；特殊过滤器用粗体，斜体...
结合工作簿和工作表; 根据关键列合并表；将数据分割成多个工作表; 批量转换xls，xlsx和PDF...
超过300种强大功能。支持Office / Excel 2007-2019和365。支持所有语言。在您的企业或组织中轻松部署。完整功能30天免费试用。 60天退款保证。