温馨提示×

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

vba
小亿
1086
2023-09-16 19:16:27
栏目: 编程语言

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

1