Write from variant array into range

[Guest]

can i write in one-step (i.e. no loops) from a dynamic array into a range,
how?

Dim myarr()
Redim myarr(1 to 10, 1 to 1)
myarr = Range("B1:B10")
'--Can I write myarr to Range("A1:A10") in one step?

 

[Norman Jones]

Hi Bharath,

'=============>>
Public Sub Tester()
Dim myarr As Variant

myarr = Range("B1:B10").Value
Range("A1:A10") = myarr
End Sub
'<<=============