Copy range values into array without for loop

Question

I would like to copy Range values into an array, and then copy the array into new range like below.

Sub Macro1()
'
' Macro1 Macro
Dim Arr As Variant
Arr = Range("A1:A3").Value
Range("C1:E1").Value = Arr
End Sub

But, the result is as below.

What's wrong with this code?

Are there any ways to tranfer range values into new range without for loop?

Sixthsense · Accepted Answer · 2016-02-10 03:54:26Z

4

Use Transpose()

Replace this line

Range("C1:E1").Value = Arr

With

Range("C1:E1").Value = Application.Transpose(Arr)

answered Feb 10, 2016 at 3:54

Sixthsense

1,9612 gold badges22 silver badges40 bronze badges

Sign up to request clarification or add additional context in comments.

1 Answer 1