Question

我目前正在使用以下VBA代码提示用户输入处理电子表格所需的人数。

Dim N As Long
    N = Application.InputBox(Prompt:="Enter value", Type:=1)
        If N > Rows.Count Then
            N = Rows.Count
        End If

        For i = 1 To N
            Cells(i + 1, 19) = i
        Next i

它完成了我最初需要的功能，如图中所示，但我想根据A列中剩下的数据重复计数直到文档结束。因此计数应该从单元格S20中的1开始。

有什么想法吗？

Screenshot of initial Result

Answer 1

最简单的做法就是遍历所有行，但写出（略微调整的）行数模N

Dim N As Long
Dim lastRow As Long

lastRow = Cells(Rows.Count, "A").End(xlUp).Row

N = Application.InputBox(Prompt:="Enter value", Type:=1)

For i = 2 To lastRow
    Cells(i, 19).Value = ((i - 2) Mod N) + 1
Next i

重复用户输入结果

1 个答案: