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

要将VBA数组赋值给单元格区域，可以使用Range对象的Value属性。以下是一个示例代码：

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属性将数组赋值给该区域。