如何从 Excel 的列中删除唯一值？

通常，我们大多数人都希望从一列中删除重复值，但有时，您可能希望删除仅在该列中出现一次的唯一值。本教程将介绍如何仅从 Excel 的一列中删除唯一值的小技巧。

使用 VBA 在 Excel 中删除唯一值

使用 Kutools for Excel 删除唯一值

---

使用 VBA 在 Excel 中删除唯一值

使用 VBA 可以快速从一列中删除所有唯一值。

1. 按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在窗口中，点击 插入 > 模块 以显示新的模块窗口，然后将以下 VBA 代码复制到模块窗口中。

VBA：从列中删除唯一值。

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
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)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub

3. 点击 运行 按钮运行 VBA 代码，并弹出一个 KutoolsforExcel 对话框，用于选择要操作的区域。参见截图：

4. 点击 确定，所有唯一值都将被删除。

---

使用 Kutools for Excel 删除唯一值

如果您不熟悉 VBA，可以考虑使用 Kutools for Excel 的“选择重复项和唯一单元格”功能来删除 Excel 中的唯一值。

Kutools for Excel 包含 300 多种便捷的 Excel 工具。免费试用 30 天无限制。立即获取

1. 选择要删除唯一值的列，然后点击 Kutools > 选择 > 选择重复项和唯一单元格。参见截图：

2. 在弹出的对话框中，勾选 唯一值 并点击 确定，然后退出此对话框。参见截图：

3. 然后所有只出现一次的值都会被选中。右键单击并选择上下文菜单中的 删除。参见截图：

4. 在 删除 对话框中，勾选 整行，然后点击 确定。参见截图：

现在您可以看到唯一值已被移除。

提示：如果您只想清除单元格内容，可以在步骤 3 中右键单击上下文菜单中的 清除内容。

您可以点击这里了解更多关于 选择重复项和唯一单元格 的信息。

---

相关文章：

• 删除 Excel 中的所有批注
• 删除 Excel 中的重复行

---