VBA根据Cell中的值填充列范围

Question

我正在尝试编写一个脚本来根据输入值填充一系列单元格。

输入值表示范围中的最大数字，脚本以9为增量计算此值。

实施例： 输入值42。 结果范围，列中每个单元格一个值：

001-010

011-020

021-030

031-040

041-042

Answer 1

您需要提供您尝试过的内容，但这应该可以帮助您：

Sub inc()

Dim V1 As Integer: V1 = InputBox("Enter a value")
Dim a As Integer: a = 1
Dim b As Integer: b = 1

Cells.Clear

For i = 10 To Round(V1, 10) Step 10
    Cells(a, 1) = Format(b, "000") & "-" & Format(i, "000")
    a = a + 1
    b = b + 10
Next i

Cells(a, 1) = Format(b, "000") & "-" & Format(V1, "000")

End Sub

小心清除活动纸张。你可能想改变它。