エクセル連番の入力方法

お世話になります。
セルA124に１と入力します。
同様にセルA163まで１と入力します。
（A125も１　A150も１）

セルA164には２と入力します。
同様にA203まで２と入力します。

このようなことをA列に100まで入力します。
１を40
２を40
３を40
〜
100を40

4000回手入力でやれば出来ますが手大変です。
計算式等で可能でしょうか？

言葉足らずな点は補足します。
よろしくお願いいたします。

No.7 回答者： CoalTar 回答日時： 2017/08/04 15:46

ほぼ、No.3のDEBU-NEKOMARUさんとNo.4のmike_gさんとの合わせ技

1. A124セルに1
2. A124セルを選択して
3. ホーム - フィル - 連続データの作成
4. ●列、停止値 : 100 [OK]
5. [Ctrl]+[Shift]+[↓]
6. [Ctrl]+[C]コピー
7. 名前ボックスに A124:A4123 [Enter]
8. [Enter](貼りつけられる)
9. 昇順で並び替え

No.6 回答者： sorun2 回答日時： 2017/07/31 10:41

初歩的な手動方法でよければ

図のように、①から⑤のステップで完了し、
４０００回手入力より簡単です。

実際には、A1はA124, A4はA163のように読み替えてください。

No.5 回答者： tom04 回答日時： 2017/07/30 20:49

こんばんは！

VBAになりますが、一例です。

Sub Sample1()
Dim i As Long, cnt As Long
For i = 1 To 100
cnt = cnt + 1
Cells(124 + (cnt - 1) * 40, "A").Resize(40) = i
Next i
End Sub

こんな感じではどうでしょうか？m(_ _)m

No.4 回答者： mike_g 回答日時： 2017/07/30 18:26

[No.2]はやや(?)ぶっきら棒だったかも(*^_^*)

１．セル A124 に提示式を入力
２．セル A124 を選択して、Ctrl+C をパシーッ
３．Ctrl+G をツン
４．[参照先]ボックス内に表示された「A124」に続けて
￣￣「:A4124」(←124+4000)を入力
５．当該ボックス内が「A124:A4124」になっていることを確認
６．[OK]ツンに続けて、Ctrl+V を、憎々し気に、「エイヤッ！」と叩き付け

どう、感動した？

No.3 回答者： DEBU-NEKOMARU 回答日時： 2017/07/30 18:16

手動方法

A124に１を入力して100までオートフィル
すべてを選択して　Ｃｔｒｌ+オートフィルで目的のセルまで
あとは、データーの並び替えでＯＫ！

関数を使用
A124に１を入力
A125に
=INT((ROW()-(124-1)+39)/40)
これを必要なだけ下までコピー

No.2 回答者： mike_g 回答日時： 2017/07/30 18:02

A124: =IF(ROW(A1)>40*100,"",INT((ROW(A1)-1)/40)+1)

No.1 回答者： スリープ 回答日時： 2017/07/30 17:07

それって連番ではありません

1,2,3,4,5,6,7,・・・・・・と増えて行くのが連番です

セルA125に「＝Ａ１２４」と入力して、セルA163まで選択して、コピペすればいいだけです

この回答へのお礼

連番ではなかったですか。失礼しました。
ご回答の方法だと100回コピペしないといけなくなりますよね。
それは避けたいです。
アドバイスありがとうございました。

お礼日時：2017/07/30 17:11