先頭と末尾を指定して連続した数字を入力

2つのセルに先頭と末尾の数字を指定すると
O列の最終行から一つ下の行(空のセル)に
その間の数字も含めて入力できるようにしたいです。

例えば、O列にはO3まで値が入力されています。
P2のセルに数字の「1」、P3のセルに数字の「10」を入力した場合。
マクロを実行するとO4セルに「1」、O5セルに「2」
、、、O13セルに「10」と入力することはできるのでしょうか？
お詳しい方宜しくお願い致します。

No.1 ベストアンサー 回答者： Qchan1962 回答日時： 2022/09/15 15:33

こんにちは

色々考えると　実行条件がもう少し必要な気がしますが・・・

まぁ取敢えず　こんな事ですかね

Dim srt As Long, stp As Long
srt = Range("P2")
stp = Range("P3")
If Not IsNumeric(srt) Then MsgBox "スタート値が数値ではありません": Exit Sub
If Not IsNumeric(stp) Then MsgBox "ストップ値が数値ではありません": Exit Sub

Dim n As Long
While srt + n <= stp
Cells(Rows.Count, "O").End(xlUp).Offset(1) = srt + n
n = n + 1
Wend

この回答へのお礼

素晴らしいです！私がしたいこと事はこういうことです。
ありがとうございました！

お礼日時：2022/09/19 07:47