将范围值复制到不带for循环的数组中

Question

我想将Range值复制到数组中，然后将数组复制到新的范围中，如下所示。

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

但结果如下。

此代码有什么问题？

有没有办法在没有for循环的情况下将范围值转换到新范围？

Answer 1

使用Transpose（）

替换此行

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

使用

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