循环在Excel中的行打印数量在Excel中重复数环

问题描述

如何使在Excel VBA中一个循环，将打印某些行一个数字，然后移动到其他行另一个号码。这就是我希望我的回路的事：

1
1
1
1
1
2
2
2
2
2
3
3
3
3
3

我无法获得循环权利。This is the OutPut that I want to Automate

---

解决方法

这是一种方法：

Sub FillNumbers(start As Range,n As Long,k As Long)
    Dim block As Range,i As Long
    For i = 1 To n
        Set block = Range(start.Offset(k * (i - 1)),start.Offset(k * i - 1))
        block.Value = i
    Next i
End Sub

然后，例如子调用

FillNumbers Range("A1"),5,12

将用大小为 12 的块中的数字 1-5 填充范围 A1:A60。

,

考虑：

Sub whatever()
    k = 1
    For i = 1 To 3
        For j = 1 To 5
            Cells(k,1) = i
            k = k + 1
        Next j
    Next i
End Sub