基于开始和结束数的Excel VBA列顺序编号

Question

我有一个起始编号（I3）和完成编号（J3）。 我想在列B3中放置I3的值，然后按顺序向下移动到J3的值。我正在使用一个按钮来达到这个目的。我已经搜索了互联网，并找到了一些VBA，但似乎没有找到我想要的东西。 我理解自动填充功能，但我想用VBA做。

console.log

代码运行但选择已选中的单元格并下移到行100000+ .. “ 非常感谢 任何帮助。 克雷格 Image of Spreadsheet

Answer 1

试试这个：

Sub Macro1()
startNumber = Cells(3, 9).Value 'cell I3, as it is your start number (as you stated)
endNumber = Cells(3, 10).Value 'cell J3

For i = startNumber To endNumber
    Cells(3, 2).Offset(i - startNumber, 0) = i
Next i
End Sub