Excel VBA：巧取不重复值，攻克数据清洗难关！

2024-02-13 17:44:46

在浩瀚的数据海洋中，重复值犹如暗礁，阻碍着我们顺利航行。作为一名 Excel VBA 专家，我有幸与大家分享一些巧妙的技巧，帮助您从容应对取不重复值的挑战，让数据清洗变得轻松无忧！

1. VBA 集合：取不重复值的一把利器

VBA 集合是一个强大的工具，它可以存储不重复的项目。通过利用集合的这一特性，我们可以轻松地从数据集中提取不重复值。

代码示例：

Sub RemoveDuplicates()
    Dim mySet As New Collection
    Dim myData As Range, myCell As Range

    Set myData = Range("A1:A100") ' 假设数据在 A1:A100 区域

    For Each myCell In myData
        mySet.Add myCell.Value, CStr(myCell.Value) ' 将值添加到集合，并使用值作为键
    Next myCell

    myData.ClearContents ' 清除原始数据区域
    Dim i As Long
    For i = 1 To mySet.Count
        myData.Cells(i, 1).Value = mySet.Item(i) ' 将不重复值写入数据区域
    Next i
End Sub

2. Scripting.Dict 对象：另一种取不重复值的方法

Scripting.Dict 对象也是一个非常有用的工具，它可以创建键值对的集合。我们可以利用这个对象来存储数据值，其中键是值本身，而值是一个任意值（通常是空值）。这种方法可以确保键（即数据值）是唯一的。

代码示例：

Sub RemoveDuplicates()
    Dim myDict As Object
    Dim myData As Range, myCell As Range

    Set myDict = CreateObject("Scripting.Dictionary")
    Set myData = Range("A1:A100") ' 假设数据在 A1:A100 区域

    For Each myCell In myData
        If Not myDict.Exists(myCell.Value) Then myDict.Add myCell.Value, "" ' 添加键值对
    Next myCell

    myData.ClearContents ' 清除原始数据区域
    Dim i As Long
    For i = 0 To myDict.Count - 1
        myData.Cells(i + 1, 1).Value = myDict.Keys(i) ' 将不重复值写入数据区域
    Next i
End Sub

3. Unique 函数：Excel 内置的取不重复值功能

对于较小规模的数据集，Excel 提供了一个内置函数 Unique，可以轻松地提取不重复值。

代码示例：

Sub RemoveDuplicates()
    Dim myData As Range
    Dim myUniqueData As Range

    Set myData = Range("A1:A100") ' 假设数据在 A1:A100 区域
    Set myUniqueData = myData.Offset(1, 0).Resize(myData.Rows.Count - 1)

    Application.WorksheetFunction.Unique(myData, myUniqueData)
End Sub