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

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

Sub AssignArrayToRange()Dim arr(1 To 3, 1 To 3) As IntegerDim rng As Range'给数组赋值arr(1, 1) = 1arr(1, 2) = 2arr(1, 3) = 3arr(2, 1) = 4arr(2, 2) = 5arr(2, 3) = 6arr(3, 1) = 7arr(3, 2) = 8arr(3, 3) = 9'将数组赋值给单元格区域Set rng = Range("A1:C3")rng.Value = arrEnd Sub

在这个示例中，我们创建了一个3x3的整数数组arr，并赋值。然后，我们使用Range对象rng来指定要赋值的单元格区域（A1:C3），并使用Value属性将数组赋值给该区域。