Paste Array into worksheet

[Guest]

Is there a one step way to paste an array into a spreadsheet without having
to cycle through each element?

I have a 9 x 9 array and I want to paste it into cells A1 to I9.

Thanks, Kaval

 

[Norman Jones]

Hi Kaval,

Sub Tester01()
Dim arr(1 To 9, 1 To 9) As Variant
Dim i As Long, j As Long

For i = 1 To 9
For j = 1 To 9
arr(i, j) = i * j
Next j
Next i

Sheets("Sheet3").Range("A1:I9").Value = arr

End Sub