vba数组怎样赋值给单元格区域

要将VBA数组赋值给单元格区域，可使用Range对象的Value属性。以下是一个示例代码：
```vba
Sub AssignArrayToRange()
Dim arr(1 To 3, 1 To 3) As Integer
Dim rng As Range
'给数组赋值
arr(1, 1) = 1
arr(1, 2) = 2
arr(1, 3) = 3
arr(2, 1) = 4
arr(2, 2) = 5
arr(2, 3) = 6
arr(3, 1) = 7
arr(3, 2) = 8
arr(3, 3) = 9
'将数组赋值给单元格区域
Set rng = Range("A1:C3")
rng.Value = arr
End Sub
```
在这个示例中，我们创建了一个3x3的整数数组arr，并赋值。然后，我们使用Range对象rng来指定要赋值的单元格区域（A1:C3），并使用Value属性将数组赋值给该区域。