將範圍值複製到數組中，而無需循環

Question

我想將Range值複製到數組中，然後將數組複製到下面的新範圍中。

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

但是，結果如下。

有什麼不對的代碼？

有沒有任何方法可以將範圍值轉換成新的範圍而不需要循環？

Answer 1

使用移調（）

替換該行

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

隨着

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