轻松获取Excel表唯一值列表，拒绝繁琐重复数据！

Office技巧

2023-12-20 14:49:05

方法一：使用高级筛选

选中需要获取唯一值列表的数据区域。
在“数据”选项卡中，单击“排序和筛选”组中的“高级”。
在“高级筛选”对话框中，选中“将结果复制到其他位置”选项。
在“复制到”框中，选择一个新的单元格区域。
在“列表区域”框中，输入需要获取唯一值列表的数据区域。
在“条件区域”框中，输入以下公式：=COUNTIF(A$2:A$100,A2)=1
（其中，A2是需要获取唯一值列表的第一个单元格。）
单击“确定”按钮。

方法二：使用数据透视表

选中需要获取唯一值列表的数据区域。
在“插入”选项卡中，单击“数据透视表”组中的“数据透视表”。
在“创建数据透视表”对话框中，选择一个新的工作表或现有工作表。
将需要获取唯一值列表的字段拖放到“行标签”区域。
单击“设计”选项卡中的“选项”组中的“字段设置”。
在“字段设置”对话框中，选中“唯一值”复选框。
单击“确定”按钮。

方法三：使用公式

在一个新的单元格中输入以下公式：
=INDEX(A$2:A$100,MATCH(0,COUNTIF(A$2:A$100,A2),0))
（其中，A2是需要获取唯一值列表的第一个单元格。）
按下Enter键。
将公式向下填充到所需的行数。

方法四：使用VBA宏

按住“Alt”键，依次单击“工具”和“宏”。
在“宏”对话框中，单击“新建”按钮。
在“新建宏”对话框中，输入宏的名称，例如“GetUniqueValues”。
单击“编辑”按钮。
在VBA编辑器中，输入以下代码：

Sub GetUniqueValues()
    Dim rng As Range
    Dim dict As Object
    Dim cell As Range

    Set rng = ActiveSheet.Range("A2:A100")
    Set dict = CreateObject("Scripting.Dictionary")

    For Each cell In rng
        If Not dict.Exists(cell.Value) Then
            dict.Add cell.Value, Nothing
        End If
    Next cell

    For Each cell In rng
        If dict.Exists(cell.Value) Then
            cell.Value = dict(cell.Value)
        End If
    Next cell
End Sub