array range

Option Base 1
Sub test()

Dim count As Integer

' one-dimensional array  to range
Dim arr1(10)  As Variant
count = 1
For i = LBound(arr1, 1) To UBound(arr1, 1)
    arr1(i) = count
    Debug.Print count
    count = count + 1
Next

[a12].Resize(1, UBound(arr1)) = arr1 'write to one row
[a15].Resize(UBound(arr1, 1), 1) = WorksheetFunction.Transpose(arr1) 'write to one column

'two-dimensional array to range
Dim arr(9, 10) As Variant
count = 1
For i = LBound(arr, 1) To UBound(arr, 1)
    For j = LBound(arr, 2) To UBound(arr, 2)
        arr(i, j) = count
        count = count + 1
    Next
Next
[a1].Resize(UBound(arr, 1), UBound(arr, 2)) = arr

'range to array
Dim a, temp
a = Range("a1:j9")
For i = LBound(a, 1) To UBound(a, 1)
    temp = ""
    For j = LBound(a, 2) To UBound(a, 2)
        temp = temp & "  " & a(i, j)
    Next
    Debug.Print temp
Next


End Sub