提取 Excel 表格中的唯一值：轻松且高效的方法

Office技巧

2023-12-11 06:46:02

厌倦了在庞大的 Excel 工作表中查找重复项？准备告别重复数据的麻烦，因为本文将为您揭示从 Excel 表格中提取唯一值的秘密武器。从初学者到数据分析专家，本指南将为您提供所需的所有步骤和技巧，让您快速准确地分离唯一值。

方法 1：IF 函数

对于小数据集，IF 函数是一个简洁的方法。以下步骤将指导您完成操作：

在新列中输入以下公式：=IF(COUNTIF($A$2:$A$1000, A2)=1, A2, "")
将公式向下复制到其他单元格中。
仅唯一值将填充新列。

方法 2：COUNIF 函数

COUNIF 函数提供了另一种查找唯一值的方法。使用以下步骤：

选择一个空白单元格。
输入以下公式：=COUNIF($A$2:$A$1000, A2)
如果返回的结果为 1，则该值是唯一的。
使用条件格式突出显示结果为 1 的单元格。

方法 3：条件格式

条件格式使您可以自动突出显示唯一值。按照以下步骤操作：

选择数据范围。
转到“主页”选项卡上的“条件格式”。
选择“新建规则”>“仅当单元格满足以下条件时”。
在“选择规则类型”下，选择“使用公式确定要格式化的单元格”。
输入以下公式：=COUNTIF($A$2:$A$1000, A2)=1
选择所需的格式。

方法 4：VBA 代码

对于需要处理大量数据的任务，VBA 代码提供了自动化解决方案。以下代码会创建一个只包含唯一值的新工作表：

Sub UniqueValues()
    Dim ws As Worksheet
    Dim wsNew As Worksheet
    Dim rng As Range
    Dim dict As Object
    Dim v

    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.UsedRange
    Set dict = CreateObject("Scripting.Dictionary")

    For Each v In rng
        If Not dict.Exists(v) Then
            dict.Add v, True
        End If
    Next v

    Set wsNew = ThisWorkbook.Sheets.Add
    wsNew.Name = "UniqueValues"
    With wsNew.Range("A1")
        .Value = "Unique Values"
        .Font.Bold = True
    End With

    i = 2
    For Each v In dict.Keys
        wsNew.Range("A" & i).Value = v
        i = i + 1
    Next v

End Sub