for循环返回错误的元素数组

Question

我有一个命令按钮,代码如下:

Dim array1()
Dim nrow As Integer

nrow = Range("C4:C241").Count

ReDim array1(nrow)

For i = 0 To nrow
    'array1(i) = Range("C" & i + 3)
    array1(i) = i
Next

Range("AY4:AY" & nrow + 3) = array1

'在您想要切换以进行一些实验的情况下,会出现注释符号.

我在Excel中运行这个宏的是一列值等于0,这不是我期望得到的:我想打印array1在Range("AY4:AY241").

我哪里错了？

Answer 1

考虑使用Tranpose您的预期输出.

Sub dural()
    Dim array1()
    Dim nrow As Integer
    nrow = Range("C4:C241").Count
    ReDim array1(nrow)
    For i = 0 To nrow
        array1(i) = i
    Next
    Range("AY4:AY" & nrow + 3) = Application.WorksheetFunction.Transpose(array1)
End Sub