静态数组赋值
静态数组是指在定义时就确定了大小的数组。你可以通过显式赋值的方式来初始化数组中的每个元素。
```vba
Sub StaticArrayExample()
Dim myArray(4) As Integer ' 定义一个包含5个元素的数组
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50
' 输出数组元素
For i = LBound(myArray) To UBound(myArray)
Debug.Print myArray(i)
Next i
End Sub
```
动态数组赋值
动态数组是在运行时根据需要调整大小的数组。使用 `ReDim` 关键字来重新定义数组的大小。
```vba
Sub DynamicArrayExample()
Dim myArray() As Integer ' 定义一个动态数组
ReDim myArray(4) ' 初始化数组为5个元素
myArray(0) = 10
myArray(1) = 20
myArray(2) = 30
myArray(3) = 40
myArray(4) = 50
' 重新调整数组大小并添加新元素
ReDim Preserve myArray(5)
myArray(5) = 60
' 输出数组元素
For i = LBound(myArray) To UBound(myArray)
Debug.Print myArray(i)
Next i
End Sub
```
使用数组常量赋值
你也可以使用数组常量来一次性给数组赋值。
```vba
Sub ArrayConstantExample()
Dim myArray() As Variant
myArray = Array(10, 20, 30, 40, 50)
' 输出数组元素
For i = LBound(myArray) To UBound(myArray)
Debug.Print myArray(i)
Next i
End Sub
```
使用循环赋值
对于较大的数组，手动逐个赋值可能不太现实。这时可以使用循环来简化赋值过程。
```vba
Sub LoopAssignmentExample()
Dim myArray(9) As Integer ' 定义一个包含10个元素的数组
Dim i As Integer
' 使用循环赋值
For i = LBound(myArray) To UBound(myArray)
myArray(i) = i 10
Next i
' 输出数组元素
For i = LBound(myArray) To UBound(myArray)
Debug.Print myArray(i)
Next i
End Sub
```
总结
在VBA中，数组的赋值方式多种多样，可以根据具体的需求选择合适的方法。无论是静态数组还是动态数组，都可以通过手动赋值、使用数组常量或循环赋值等方式来实现。掌握这些基本技巧后，你就可以在VBA程序中更高效地处理数据了。
希望以上内容对你有所帮助！如果你有任何其他问题，欢迎继续提问。
