arrays - 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