从VBA阵列中删除反向重复项

Sub RemoveDuplicateItemsFromArray()
    Dim originalArray() As Variant
    Dim newArray() As Variant
    Dim i As Long
    Dim j As Long
    Dim isDuplicate As Boolean
    
    ' 假设原始数组已经被填充
    
    ' 获取原始数组的大小
    Dim arraySize As Long
    arraySize = UBound(originalArray) - LBound(originalArray) + 1
    
    ' 定义新数组的大小为原始数组的大小
    ReDim newArray(1 To arraySize)
    
    ' 遍历原始数组中的每个元素
    For i = LBound(originalArray) To UBound(originalArray)
        isDuplicate = False
        
        ' 检查当前元素是否已经存在于新数组中
        For j = LBound(newArray) To UBound(newArray)
            If originalArray(i) = newArray(j) Then
                isDuplicate = True
                Exit For
            End If
        Next j
        
        ' 如果当前元素不存在于新数组中，则将其添加到新数组中
        If Not isDuplicate Then
            newArray(UBound(newArray) + 1) = originalArray(i)
        End If
    Next i
    
    ' 将新数组赋值给原始数组
    originalArray = newArray
    
    ' 输出结果
    For i = LBound(originalArray) To UBound(originalArray)
        Debug.Print originalArray(i)
    Next i
End Sub