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

通常，我们大多数人希望从列中删除重复值，但有时您可能反而想删除那些仅在该列中出现一次的唯一值。本教程将为您介绍在 Excel 中轻松删除列中唯一值的实用技巧。

在 Excel 中使用 VBA 删除唯一值

使用 Kutools for Excel 删除唯一值

---

在 Excel 中使用 VBA 删除唯一值

使用 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 中删除重复行

---