VBA如何实现数组快速去重

在VBA中，可以使用一个字典对象来实现数组的快速去重。具体的做法是，将数组中的元素作为字典的键，这样重复的元素只会在字典中存在一次，最后再将字典中的键存入一个新的数组中，即可得到去重后的数组。以下是一个示例代码：

Sub UniqueArr()
    Dim arr() As Variant
    arr = Array(1, 2, 3, 4, 2, 3, 5)
    
    Dim dict As New Scripting.Dictionary
    Dim i As Long
    
    '将数组元素作为字典的键，去重
    For i = 0 To UBound(arr)
        If Not dict.Exists(arr(i)) Then
            dict.Add arr(i), ""
        End If
    Next i
    
    '将字典中的键存入新的数组中
    Dim uniqueArr() As Variant
    uniqueArr = dict.Keys
    
    '输出去重后的数组
    For i = 0 To UBound(uniqueArr)
        Debug.Print uniqueArr(i)
    Next i
End Sub

这段代码中，首先创建了一个包含重复元素的数组。然后创建了一个字典对象，并将数组中的元素作为字典的键，通过判断键是否已经存在来去重。最后将字典中的键存入一个新的数组中，并输出去重后的数组。

相关问题

vba新建数组

在VBA中新建数组可以使用以下语法：

Dim arr() As DataType

其中，DataType是数组元素的数据类型，可以是整型、字符串型等。arr是数组名，可以根据需求自定义。

例如，新建一个整型数组可以使用以下代码：

Dim intArr() As Integer

此时，intArr就是一个空的整型数组。如果需要给数组赋初值，可以使用以下语法：

Dim arr() As DataType = {value1, value2, value3, ...}

例如，新建一个含有3个整型元素的数组并赋初值可以使用以下代码：

Dim intArr() As Integer = {1, 2, 3}

vba 全局数组

在VBA中，可以使用Public关键字将数组声明为全局数组。具体步骤如下：

1.在所有模块之外的模块中声明数组，使用Public关键字。

2.在需要使用该数组的任何模块中，使用数组名即可访问全局数组。

以下是一个示例代码：

在模块1中声明全局数组：

Public myArray(1 To 10) As Integer

在模块2中访问全局数组：

Sub test()
    myArray(1) = 100
    MsgBox myArray(1)
End Sub

在上述代码中，myArray数组被声明为全局数组并在模块2中访问。无需再次声明该数组即可使用。