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

ms excelmicrosoft technologiescomputers更新于 2024/8/3 19:24:17

Excel 是一款功能强大的数据管理和分析工具。处理大型数据集时，经常会遇到需要从列中删除唯一值的情况。无论您是想过滤掉一次性出现的数据、识别并消除异常值，还是为了特定目的简化数据，删除唯一值都是一项便捷的技术。在本教程中，我们将引导您完成从 Excel 列中删除唯一值的过程。我们将根据您的需求和您使用的 Excel 版本介绍不同的方法。您将学习如何识别、选择和删除唯一值，并探索一些处理唯一数据的高级技巧。

完成本教程后，您将清楚地了解如何有效地从 Excel 列中删除唯一值，从而能够更高效地处理数据并实现预期结果。那么，让我们开始深入了解从 Excel 列中删除唯一值的各种方法吧!

从列中删除唯一值

让我们看一个简单的过程，了解如何在 Excel 中删除列中的唯一值。

步骤 1

假设有一个 Excel 工作表，其中包含具有重复值和唯一值的名称列表，如下图所示。

首先右键单击工作表名称，然后选择"查看代码"以打开 VBA 应用程序，然后单击"插入"并选择"模块"，然后将以下代码复制到文本框中，如下图所示。

右键单击 > 查看代码 > 插入 > 模块 >复制。

代码

Sub DeleteUnique()
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
On Error Resume Next
xTitleId = "Range of cells"
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