開始と終了番号を指定した連番（Excel）

質問

連番を自動作成できるよう、マクロかVBAでも結構ですので教えてください。

例えばC1に123、D1に456、と値を入力した時に
A2以降に123～456の連番が自動作成される、という具合です。
このC1の開始番号とD1の終了番号を変更した時にも対応できるようお願いします！！

Excel2000です

回答No.3

GuruGuru22 · ベストアンサー

Range("A2").Value = Range("B1").Value
Range("A2:A65536").DataSeries stop:=Range("C1").Value
とか。

お礼

うまくいきました！

ありがとうございます、大変助かりました

回答No.7

imogasi

＃５のご回答ではエラーが出るセルが出ると思いますので
修正。
(1)Ａ２に=C1
(2)A3のセルに=IF(ROW()<=$D$1-$C$1+2,A2+1,"")
＋１でなく＋２となる、１は第２行目であるＡ２セルから始まるため。
(3)Ａ４以下十分下の行まで式を複写する

回答No.6

noname#11856

・・・書き直せるものなら修正させて欲しくて泣きそうな#1です。。。

#2が更に間違っておりますです。
lncnt ではなく lngrow でございます。（涙）

でも#3さんの方法でうまくいったようですね。よかったです。(^-^)

回答No.5

austin32

とっておきめんどくさがり屋さん仕様のものを...。

連番を開始したいセル（仮にC2とする）に以下を入力。
=IF(C1+1<=$D$1,C1,"")
その下からず～っと下までは、以下を入力（コピー）。
=IF(C2+1<=$D$1,C2+1,"")

以上。

回答No.4

maruru01

こんにちは。maruru01です。

関数での方法を。

A2に、

=IF(COUNT($C$1:$D$1)=2,IF($C$1>$D$1,"",IF(MAX($C$1-1,$A$1:A1)+1>$D$1,"",MAX($C$1-1,$A$1:A1)+1)),"")

と入力して、下の行へ十分な行数コピーしておきます。

回答No.2

noname#11856

#1です。・・・思いっきり間違えてました。

× cells(2,1).value = lngloop
○ cells(lngcnt,1).value = lngloop

です。ごめんなさい。

お礼

すばやい回答ありがとうございます。

#1は、1個のセルに順に数値が入力され、終了番号しか残りませんでした。
#2は、エラーが出てしまいました。。。

回答No.1

noname#11856

dim lngLoop as long
dim lngRow as long

lngrow = 2
for lngloop = range("C1").value to range("D1").value
　cells(2,1).value = lngloop
　lngrow = lngrow + 1
next

この場で思いつきで書いたのでこのままで動く保証は致しかねますが。（笑）
イメージとしてつかんでいただければ。