将数组值分配给excel spsh中的范围

Question

我已经定义了一个数组，填充了它，并且我试图在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)