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

【问题标题】：Loop in Excel to print numbers in rows. repetitive number loop in Excel在 Excel 中循环以按行打印数字。 Excel中的重复数字循环
【发布时间】：2021-01-07 14:06:18
【问题描述】：

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

我无法正确循环。This is the OutPut that I want to Automate

【问题讨论】：

目前尚不清楚问题实际上是什么或您卡在哪里。如果您显示您已经尝试过的代码，将会有所帮助。

标签： excel loops for-loop while-loop do-while

【解决方案1】：

这是一种方法：

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。

【讨论】：

【解决方案2】：

考虑：

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

【讨论】：