要將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屬性將數組賦值給該區域。
