vba 怎么向数组内添加数据

要向 VBA 数组添加数据，可以使用 ReDim 语句来重新定义数组的大小并将新的数据添加到数组中。以下是一个示例：

Dim myArray() As String
ReDim myArray(0 To 2)
myArray(0) = "apple"
myArray(1) = "banana"
myArray(2) = "orange"

ReDim Preserve myArray(0 To 3)
myArray(3) = "grape"

在这个示例中，我们首先定义了一个包含三个元素的字符串数组 myArray。然后，我们使用 ReDim 语句将数组的大小增加到四个元素，并使用 Preserve 关键字来保留数组中已有的数据。最后，我们将新的数据 "grape" 添加到数组的第四个元素中。

请注意，使用 ReDim 语句重新定义数组大小会删除数组中原有的数据。如果您想保留原有数据，请使用 Preserve 关键字。

相关问题

VBA动态添加二维数组数据

在 VBA 中，可以使用 ReDim 语句来动态地重新定义数组的大小。下面是一个示例代码，演示了如何动态地添加数据到二维数组中：

Sub AddDataTo2DArray()
    '定义一个二维数组
    Dim myArray() As Variant
    ReDim myArray(0 To 0, 0 To 2)
    
    '添加第一行数据
    myArray(0, 0) = "Name"
    myArray(0, 1) = "Age"
    myArray(0, 2) = "Gender"
    
    '动态添加第二行数据
    ReDim Preserve myArray(0 To 1, 0 To 2)
    myArray(1, 0) = "Tom"
    myArray(1, 1) = 25
    myArray(1, 2) = "Male"
    
    '动态添加第三行数据
    ReDim Preserve myArray(0 To 2, 0 To 2)
    myArray(2, 0) = "Mary"
    myArray(2, 1) = 30
    myArray(2, 2) = "Female"
    
    '打印数组数据
    For i = 0 To UBound(myArray)
        For j = 0 To UBound(myArray, 2)
            Debug.Print myArray(i, j)
        Next j
    Next i
End Sub

在上面的示例中，我首先定义了一个二维数组 myArray，并将其大小设置为 1 行 3 列。然后，我添加了第一行数据，并使用 ReDim 语句将数组大小动态地扩展到 2 行 3 列，并将第二行数据添加到数组中。接着，我再次使用 ReDim 语句将数组大小动态地扩展到 3 行 3 列，并将第三行数据添加到数组中。最后，我使用两个 for 循环来打印数组中的所有数据。

需要注意的是，在使用 ReDim 语句时，需要指定 Preserve 关键字，以保留数组中已有的数据。否则，数组的重新定义将会删除数组中所有的数据。

vba数组去除重复数据

可以使用字典对象来去除重复数据，具体实现代码如下：

Sub RemoveDuplicates()
    Dim arr As Variant
    Dim dict As Object
    Dim i As Long
    
    '将数组赋值给变量
    arr = Range("A1:A10").Value
    
    '创建字典对象
    Set dict = CreateObject("Scripting.Dictionary")
    
    '遍历数组，将不重复的数据添加到字典中
    For i = LBound(arr) To UBound(arr)
        If Not dict.exists(arr(i, 1)) Then
            dict.Add arr(i, 1), ""
        End If
    Next i
    
    '将字典中的数据输出到新的数组中
    ReDim arr(1 To dict.Count, 1 To 1)
    i = 1
    For Each key In dict.keys
        arr(i, 1) = key
        i = i + 1
    Next key
    
    '输出结果到新的单元格中
    Range("B1").Resize(dict.Count, 1).Value = arr
End Sub