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

vba
1404
2023/9/15 19:16:27
栏目: 编程语言
开发者测试专用服务器限时活动,0元免费领,库存有限,领完即止! 点击查看>>

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

辰迅云「云服务器」,即开即用、新一代英特尔至强铂金CPU、三副本存储NVMe SSD云盘,价格低至29元/月。点击查看>>

推荐阅读: VBA怎么查找日期对应数据