提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
注册账户
x

or

如何删除重复,但在Excel中保持第一个实例?

假设您的工作表中有一个包含重复项的值列表,现在您需要删除重复项但保留找到重复值的第一行。 在本文中,我们将向您展示两种删除重复项的方法,但在Excel中保留第一个实例。

删除重复项但保留VBA代码的第一个实例

删除重复项目但保留Kutools for Excel的第一个实例


轻松地突出显示列表中的所有重复值或唯一值

您订购的 Kutools for Excel's 选择重复和唯一单元格 实用程序,您可以快速突出显示Excel中列表中的所有重复值或uqique值。

Kutools for Excel 包含了比300更方便的Excel工具。 免费试用60天无限制。 立即下载免费试用版


删除重复项但保留VBA代码的第一个实例


您可以运行下面的VBA代码来删除重复项,但将第一个实例保留在列中。

1。 按 其他 + F11 打开 Microsoft Visual Basic for Applications 对话框。

2。 在里面 Microsoft Visual Basic for Applications 对话框,单击 插页 > 模块。 然后将以下代码复制并粘贴到代码窗口中。

VBA代码:删除重复但保留一审

Sub TrimExcessSpaces()
	Dim Rng As Range
	Dim WorkRng As Range
	Dim dic As Variant
	Set dic = CreateObject("Scripting.Dictionary")
	On Error Resume Next
	xTitleId = "KutoolsforExcel"
	Set WorkRng = Application.Selection
	Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng = WorkRng.Columns(1)
	For Each Rng In WorkRng.Cells
		dic(Rng.Value) = ""
	Next
	WorkRng.ClearContents
	WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub

3。 按 F5 键来运行代码。 在弹出 KutoolsforExcel 对话框中,选择要删除重复项的范围,然后单击 OK 按钮。 看截图:

现在您可以看到除了第一条记录以外的所有重复行都从选定的列范围中删除。 看截图:


删除重复项目但保留Kutools for Excel的第一个实例

在VBA代码旁边,您可以使用 选择重复和唯一单元格 实用程序 Kutools for Excel 插件可以轻松删除重复项,但在Excel中保留第一个实例。

Kutools for Excel :与超过300方便的Excel加载项, 免费试用60天无限制.

1。 选择要删除重复项的范围,但保留第一个实例。 然后点击 Kutools > 选择 > 选择重复和唯一单元格。 看截图:

2。 在里面 选择重复和唯一单元格 对话框中选择 重复(除1st之外) 选项,然后单击 OK 按钮。 看截图:

doc删除duplicates1

3。 在下面的 选择重复和唯一单元格 对话框,单击 OK.

doc删除duplicates1

4。 现在除了第一个实例以外都选择了重复项,请按下 删除 键删除选定的重复项。

注意:如果你想删除重复的行,你只需要检查 选择整个行 在选项 选择重复和唯一单元格 对话框,然后应用 删除 右键菜单命令删除整个重复行。

提示。如果您想免费试用此实用程序,请转到 免费下载软件 首先,按照上述步骤进行操作。


删除重复项目但保留Kutools for Excel的第一个实例

Kutools for Excel 包含了比300更方便的Excel工具。 免费试用60天无限制。 立即下载免费试用!



推荐的Excel生产力工具

Kutools for Excel帮助您提前完成工作,并从人群中脱颖而出

  • 超过300强大的高级功能,专为1500工作场景设计,通过70%提高生产力,让您有更多时间照顾家庭和享受生活。
  • 不再需要记忆公式和VBA代码,从现在起让你的大脑休息一下。
  • 成为3分钟的Excel专家,复杂和重复的操作可以在几秒钟内完成,
  • 每天减少成千上万的键盘和鼠标操作,现在告别职业病。
  • 110,000高效人才和300 +世界知名公司的选择。
  • 60-day full功能免费试用。 60天退款保证。 2多年的免费升级和支持。

将选项卡式浏览和编辑带到Microsoft Office,远比浏览器的选项卡强大

  • Office选项卡专为Word,Excel,PowerPoint和其他Office应用程序设计:Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 2 years ago
    I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell

    John I Red
    John I Blue
    John I Yellow

    Joe I Red
    Joe I Blue
    Joe I Yellow

    and turn it into

    John I Red
    I Blue
    I Yellow

    Joe I Red
    I Blue
    I Yellow

    Can you help on just keeping the first duplicate in a single cell only?