在VBA中，可以使用`Dim`语句来定义数组，并使用赋值语句将值赋给数组的元素。以下是几种常见的数组定义和赋值方法：
1. 定义一维数组
方法一：指定数组大小
```vba
Dim arr（1 To 5） As Integer ' 定义一个包含5个元素的整数数组
arr（1） = 10 ' 给第一个元素赋值为10
arr（2） = 20 ' 给第二个元素赋值为20
arr（3） = 30 ' 给第三个元素赋值为30
arr（4） = 40 ' 给第四个元素赋值为40
arr（5） = 50 ' 给第五个元素赋值为50 ' 如果数组的索引是从0开始的
```
方法二：使用Array函数
```vba
Dim arr（） As Integer ' 定义一个整数数组
arr = Array（10, 20, 30, 40, 50） ' 给数组赋值
```
2. 定义二维数组
方法一：指定数组大小
```vba
Dim arr（1 To 3, 1 To 3） As Integer ' 定义一个3x3的整数二维数组
arr（1, 1） = 10
arr（1, 2） = 20
arr（1, 3） = 30
arr（2, 1） = 40
arr（2, 2） = 50
arr（2, 3） = 60
arr（3, 1） = 70
arr（3, 2） = 80
arr（3, 3） = 90
```
方法二：使用Array函数
```vba
Dim arr（） As Variant ' 定义一个二维数组
arr = Array（Array（10, 20, 30）, Array（40, 50, 60）, Array（70, 80, 90）） ' 给数组赋值
```
3. 动态数组
方法一：声明动态数组
```vba
Dim arr（） As Variant ' 声明一个动态数组
ReDim arr（1 To 10） ' 动态数组的大小可以根据需要重新定义
```
方法二：使用ReDim语句
```vba
Dim arr（） As Variant ' 声明一个动态数组
ReDim arr（1 To 5） ' 初始化数组大小为5
ReDim Preserve arr（1 To 10） ' 扩展数组大小到10，保留原有数据
```
4. 多维数组
方法一：使用Ctrl + Shift + Enter创建
在Excel中，选择空白单元格，按下Ctrl + Shift + Enter，输入以下数组公式：
```
={1,2,3；4,5,6；7,8,9}
```
这将创建一个3x3的多维数组。
方法二：在VBA中声明和操作
```vba
Dim arr As Variant ' 声明一个Variant类型的数组
arr = Range（"A1:C3"）.Value ' 将Excel中的数组赋值给VBA变量
```
5. 示例代码
```vba
Sub ExampleArrayUsage（）
Dim MyArray（） As Integer
Dim i As Integer
Dim RowCount As Integer
RowCount = 10 ' 假设我们有10行数据
' 声明并初始化数组
ReDim MyArray（1 To RowCount）
' 逐个赋值
For i = 1 To RowCount
MyArray（i） = i * 10
Next i
' 输出数组元素
For i = 1 To RowCount
MsgBox MyArray（i）
Next i
' 释放数组
Erase MyArray
End Sub
```
通过以上方法，你可以在VBA中灵活地定义和操作数组，以满足不同的数据处理需求。
