VBA配列にセル範囲を代入する方法

2年 ago
海斗, 葵
1 minute

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

この例では、整数配列（arr）を3×3で作成し、値を代入します。次に、Rangeオブジェクト（rng）を使用して値を代入するセル範囲（A1:C3）を指定し、Valueプロパティを使用して配列をその範囲に代入します。

bannerAds