在excel VBA中转储数组垂直方向

Question

当我要将数组转储Dim A (1 To 3) As String到垂直范围的单元A1:A3格时,阵列的第一个单元格将在所有范围内重复.

例如,假设 A(1) = "a" , A(2) = "b" , A(3) = "c"结果a在所有A1:A3范围内.

代码是 Range("A1:A3").Value = A

我究竟做错了什么？

谢谢!

Answer 1

Sub Tester()

Dim a(1 To 3)

    a(1) = "a"
    a(2) = "b"
    a(3) = "c"

    Range("A1:A3").Value = a  'all "a"

    Range("A1:C1").Value = a  'works, because left-to-right is the default

    Range("A1:A3").Value = Application.Transpose(a) 'works


End Sub