vba数组怎么定义并赋值

在VBA中，可以使用Dim语句定义数组，并使用赋值语句将值赋给数组的元素。以下是定义和赋值数组的示例代码：

Dim myArray(1 To 5) As Integer  ' 定义一个包含5个整数的数组
myArray(1) = 10   ' 给数组的第一个元素赋值为10
myArray(2) = 20   ' 给数组的第二个元素赋值为20
myArray(3) = 30   ' 给数组的第三个元素赋值为30
' 使用循环给数组的剩余元素赋值
For i = 4 To 5
myArray(i) = i * 10
Next i

在上面的示例中，使用Dim语句定义了一个包含5个整数的数组myArray。然后，通过索引（从1到5）分别给数组的元素赋值。最后，通过循环给数组的剩余元素赋值。