在Excel中循环以按行打印数字。Excel中的重复数循环

如何在Excel VBA中创建循环，该循环将为某些行打印一个数字，然后为其他行移动到另一个数字。这就是我希望我的循环要做的：

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

我无法正确地进行循环

---

这里有一种方法：

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

---

不清楚问题究竟是什么，也不清楚你被困在哪里。如果您展示了您已经尝试过的代码，这将有所帮助。