删除重复的VBA - Array编码

在VBA（Visual Basic for Applications）中，处理数组时，有时会遇到需要删除重复元素的情况。以下是一个基础概念的解释以及如何删除数组中重复元素的详细步骤。

基础概念

数组：在VBA中，数组是一种可以存储多个值的数据结构。数组中的每个值都有一个索引，可以通过索引访问。

重复元素：数组中的重复元素是指出现多次的相同值。

删除重复元素的步骤

创建一个辅助集合：使用VBA的Collection对象来存储唯一的元素。
遍历原始数组：检查每个元素是否已经存在于集合中。
添加唯一元素：如果元素不在集合中，则将其添加到集合中。
重建数组：将集合中的元素复制回一个新的数组。

示例代码

以下是一个VBA宏示例，展示了如何删除数组中的重复元素：

Sub RemoveDuplicatesFromArray()
    Dim arrOriginal() As Variant
    Dim arrUnique() As Variant
    Dim colUnique As New Collection
    Dim i As Long
    Dim j As Long
    
    ' 假设原始数组如下
    arrOriginal = Array(1, 2, 3, 2, 4, 3, 5)
    
    ' 遍历原始数组并添加唯一元素到集合中
    On Error Resume Next ' 忽略集合中已存在元素的错误
    For i = LBound(arrOriginal) To UBound(arrOriginal)
        colUnique.Add arrOriginal(i), CStr(arrOriginal(i))
    Next i
    On Error GoTo 0 ' 恢复默认错误处理
    
    ' 将集合中的元素复制到新的数组
    ReDim arrUnique(0 To colUnique.Count - 1)
    For i = 1 To colUnique.Count
        arrUnique(j) = colUnique(i)
        j = j + 1
    Next i
    
    ' 输出结果
    For i = LBound(arrUnique) To UBound(arrUnique)
        Debug.Print arrUnique(i)
    Next i
End Sub