将数组值赋给excel spsh中的一个范围

我已经定义了一个数组，填充它，并且试图设置一个excel spsh等于它的范围。 当我使用下面的简单代码（我省略了赋值）时，我得到了范围内每个单元格的数组下标1。 任何人都可以看到有什么不对？ 谢谢。

Dim Loss(1 To 10000) Range("Losses!u11:u10010") = Loss 

Answer 1

Excel范围始终是二维的

 Public Sub foo() Dim Loss(1 To 10000, 1 To 1) For i = 1 To 10000 Loss(i, 1) = i Next Range("Losses!u11:u10010") = Loss End Sub 

Answer 2

交替：

 Range("Losses!u11:u10010").Value = Application.Transpose(Loss)