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 (Visual Basic for Applications) 中，如果你想要在数组中添加元素，可以使用几种不同的方法：

1. **动态数组** (Variant Array): VBA 的 Variant 类型数组允许你在运行时增加其大小。例如，你可以创建一个空数组，然后通过索引赋值：

   Dim arr() As Variant '声明一个Variant类型的动态数组
   ReDim arr(0) '初始化一个只有一维的数组，此时长度为1
   
   '添加元素到数组末尾
   arr(LBound(arr)) = "New Element"

2. **固定长度的一维数组**: 如果你需要预先知道数组长度并且不允许改变，可以创建固定长度数组并使用`Redim Preserve`保留原有数据，再添加新元素：

   Dim arr(1 To 5) As String '假设已有一个5长度的数组
   '添加元素，假设当前索引是6
   arr(6) = "New Element"

3. **二维数组或其他结构化的数组**: 同样，你可以先定义好维度，然后通过下标添加元素。对于二维数组，例如：

   Dim myArray(1 To 3, 1 To 3) As Integer '一个3x3的数组
   '添加元素，如myArray(2, 2) = 100

记得，在操作数组时，始终注意索引是从0开始的，并确保添加元素的位置不会超出数组的界限。

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