如何删除重复项,但保留Excel中其余的行值? |
您所在的位置:网站首页 › 如何删除表格重复项都不保留 › 如何删除重复项,但保留Excel中其余的行值? |
如何删除重复项,但保留Excel中其余的行值?
作者:孙
最后修改时间:2020-05-22
在Excel中,当您应用“删除重复项”功能时,它将删除所有重复值并向上移动,如屏幕截图1所示。 但是,在某些情况下,您可能希望删除重复项,但保留其余的行值,如屏幕截图2所示。 现在,在这种情况下,我将介绍一些删除重复项但将其余部分保留在Excel中的技巧。 ![]() ![]() 删除重复项,但使用过滤器保留其余的行值(3个步骤) 删除重复项,但使用VBA保留其余的行值(4个步骤) 使用 Kutools for Excel 删除重复项但保留其余行值(2步) 使用公式和过滤器功能,您可以快速删除重复项,但要保持休息。 1.在数据范围(例如,D2)旁边选择一个空白单元格,键入公式 = A3 = A2,将自动填充手柄向下拖动到所需的单元格。 看截图: 2.选择所有数据范围,包括公式单元格,然后单击 时间 > 筛选器 启用 筛选器 功能。 看截图: 3。 点击 筛选器图标 在D列(公式列)中,然后检查 TUR从下拉列表E中查看屏幕截图: 4。 点击 OK,然后列出所有重复项,然后选择所有重复值,按 删除 删除它们的关键。 看截图: 5。 点击 时间 > 筛选器 禁用 筛选器,然后根据需要删除公式。 您可以看到所有重复项均已删除,其余值保留在该行中。 在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 Sub3。 按 F5 键运行代码,会弹出一个对话框,提醒您选择一个范围以从中删除重复的值。 看截图: 4。 点击 OK,现在已从选择中删除重复的值,并保留空白单元格。 如果你有 Kutools 为 Excel –安装了方便且功能强大的添加工具,您可以通过两种方式快速删除重复项,但保留剩余值或行值。 Kutools for Excel, 与超过 300 方便的功能,使您的工作更加轻松。 免费下载30 天内免费提供全功能安装后 Kutools for Excel,请执行以下操作:(立即免费下载 Kutools for Excel!) 方法1:合并相同的单元格(2个步骤) 1.选择重复的值,然后单击 库工具 > 合并与拆分 > 合并相同的单元格。 看截图: 2.然后,重复值已合并到一个单元格中。 然后点击 主页 > 合并与中心 > 取消单元格拆分。 看截图: 现在结果显示如下: 方法2:选择重复和唯一单元格(4个步骤) 1.选择要从中删除重复项的数据列表,然后单击 库工具 > 选择 > 选择重复和唯一单元格。 看截图: 2.在 选择重复和唯一单元格 对话框,检查 重复(第一个除外) 在选项 违反的规则 部分。 看截图: 3。 点击 Ok,会弹出一个对话框,提醒您选择了多少个重复项,然后单击 OK 关闭它。 看截图: 4.然后按 删除 键以删除选定的重复值。 提示: - Kutools for Excel“ 高级组合行 实用程序,您可以组合重复的值,然后对另一列进行一些计算,如下图所示。 30天内全功能无限制,请下载并立即免费试用。 使用 Kutools for Excel 增强您的 Excel 技能,体验前所未有的效率。 Kutools for Excel 提供了 300 多种高级功能来提高生产力并节省时间。 单击此处获取您最需要的功能... ![]() |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |