我有一个命令按钮,代码如下:
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")
.
我哪里错了?
考虑使用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