在VBA（Visual Basic for Applications）中，给数组赋值可以通过几种不同的方式来完成。以下是一些常见的方法：
1. 初始化数组并赋值
```vba
Dim myArray() As Integer
ReDim myArray(1 To 5) ' 创建一个有5个元素的数组
myArray(1) = 10
myArray(2) = 20
myArray(3) = 30
myArray(4) = 40
myArray(5) = 50
```
2. 使用动态数组
```vba
Dim myArray() As Integer
myArray = Array(10, 20, 30, 40, 50) ' 直接使用Array函数创建并赋值
```
3. 使用ReDim语句动态调整数组大小并赋值
```vba
Dim myArray() As Integer
ReDim myArray(1 To 5) ' 初始化数组
myArray(1) = 10
myArray(2) = 20
myArray(3) = 30
myArray(4) = 40
myArray(5) = 50
' 如果需要，可以重新定义数组的大小
ReDim Preserve myArray(1 To 10) ' 保留已赋值的元素，增加数组大小
myArray(6) = 60
myArray(7) = 70
myArray(8) = 80
myArray(9) = 90
myArray(10) = 100
```
4. 使用循环给数组赋值
```vba
Dim myArray() As Integer
ReDim myArray(1 To 5)
For i = 1 To 5
myArray(i) = i 10
Next i
```
5. 使用二维数组
```vba
Dim myArray(1 To 2, 1 To 2) As Integer
myArray(1, 1) = 1
myArray(1, 2) = 2
myArray(2, 1) = 3
myArray(2, 2) = 4
```
这些是VBA中给数组赋值的一些基本方法。根据你的具体需求，你可以选择最合适的方法。
