VBA 字典编程 去重

VBA（Visual Basic for Applications）在Excel等Microsoft Office应用程序中广泛用于编写宏和自动化脚本。字典（Dictionary）是VBA中的数据结构，类似于哈希表，它通过键值对存储数据，非常便于查找和去重操作。

在VBA中去重可以利用字典的特性，因为字典不允许插入重复的键（对于字符串类型的键）。以下是一个简单的步骤来实现去重：

Sub RemoveDuplicates()
    Dim dict As Object ' 创建一个空的字典对象
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 假设我们有一个包含元素的数组或列表
    Dim arr() As Variant
    arr = Array("元素1", "元素2", "元素1", "元素3", "元素2")
    
    ' 遍历数组，将非重复元素添加到字典
    For Each item In arr
        If Not dict.Exists(item) Then
            dict.Add item, Empty ' 键不存在则添加
        End If
    Next
    
    ' 将去重后的元素存储在一个新数组中，例如只保留字典的键
    Dim uniqueArr() As Variant
    ReDim uniqueArr(dict.Count)
    Dim i As Long
    For Each key In dict.Keys
        uniqueArr(i) = key
        i = i + 1
    Next
    
    ' 打印去重后的结果
    Debug.Print Join(uniqueArr, ", ")
End Sub

当你运行这个程序后，你会得到一个去重后的数组，比如："元素1, 元素2, 元素3"。