Excelで数行ずつ連番を指定する方法

Excelで
1から10までの数字を3行ずつ指定する場合どのような方法が効率的でしょうか？
-----------------------------
1
1
1
2
2
2
3
3
...
10
10
10
-----------------------------
といった感じです。

この程度のデータならコピーで出来るのですが、
実際は連番を100行ずつで行なっているので、何か効率的な方法があればよろしくお願いします。

No.2 ベストアンサー 回答者： aokii 回答日時： 2013/07/26 16:03

1

1
1として、A4セルに、
=A1+1
以下、下にドラッグコピー。

この回答へのお礼

回答頂きありがとうございます。
実際に教えて頂いた方法を使用することで簡単に行なうことが出来ました。
本当にありがとうございます。

お礼日時：2013/07/30 20:04

No.7 回答者： tom04 回答日時： 2013/07/28 11:56

No.6です！

たびたびごめんなさい。

前回の解釈でよいのであれば、
わざわざマクロにする必要はないように思います。
手作業での方法での別案です。
Excel2007以降をお使いだとして・・

A1セルに　1　を入力　→　A1セルを選択　→　フィル（ホームタブの右側Σマークの下のアイコン）　→　連続データの作成
→　「列」を選択　→　停止値に　10000　と入力　→　OK
これでA列に１～10000の連番が表示されますので、
B1セルに
=INT((ROW(A1)-1)/100)+1
という数式を入れ、B1セルのフィルハンドルでダブルクリック　→　B列すべてを範囲指定　→　右クリック　→　コピー
→　そのまま右クリック　→　形式を選択して貼り付け　→　「値」を選択しOK

最後のA列すべてを削除して完了です。

※　Excel2003までのバージョンでは「連続データの作成」が少し違います。
メニュー　→　編集　→　フィル　→　連続データの作成　→　以降は同様
といった操作になります。

何度も失礼しました。m（_ _）m

この回答へのお礼

回答頂きありがとうございます。
丁寧な説明でとても分かりやすく、また、連番を入れる方法など知らないことも教えて頂きExcelの知識を増やすことが出来ました。
本当にありがとうございました。

お礼日時：2013/07/31 19:36

No.6 回答者： tom04 回答日時： 2013/07/28 10:43

こんにちは！

横からお邪魔します。

＞実際は連番を100行ずつで行なっているので

というコトはA1～A100セルが「1」・A101～A200セルが「2」・・・
とA10000セルまで数値を入れたい！という解釈です。

VBAになってしまいますが、一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペーストしてマクロを実行してみてください。
（Alt＋F8キー　→　マクロ　→　マクロ実行）

Sub 連番100行ずつ() 'この行から
Dim cnt As Long
Application.ScreenUpdating = False
With Range("A1:A100")
.Formula = "=row()"
.Value = .Value
.Copy
End With
Do Until cnt = 99
cnt = cnt + 1
Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteAll
Loop
Range("A:A").Sort key1:=Range("A1"), order1:=xlAscending, Header:=xlNo
Application.ScreenUpdating = True
End Sub 'この行まで

※　1回だけの操作になります。m（_ _）m

No.5 回答者： maron--5 回答日時： 2013/07/27 04:30

◆こんな方法はいかがでしょう

=INT(ROW(3:3)/3)

この回答へのお礼

回答頂きありがとうございます。
今回は別の方法を使用しましたが、大変勉強になりました！

お礼日時：2013/07/31 19:26

No.4 回答者： keithin 回答日時： 2013/07/26 17:29

Ａ１セルに最初の数字１を記入

Ａ２に　=A1
Ａ３に　=A2
と記入（もちろんＡ２をＡ３にコピーあるいはオートフィルドラッグするのでよい）

Ａ１：Ａ３の３つのセルを選び，右下の小さい■を下向けにオートフィルドラッグします。

この回答へのお礼

回答頂きありがとうございます。
こちらの方法をとてもシンプルで簡単に行うことが出来ました。
ありがとうございます。

お礼日時：2013/07/30 20:05

No.3 回答者： mike_g 回答日時： 2013/07/26 16:29

=CEILING(ROW(A1)/3,1)

No.1 回答者： KURUMITO 回答日時： 2013/07/26 15:55

３行ずつを連番にするのでしたら次の式を入力して下方にドラッグコピーします。

=ROUNDUP(ROW(A1)/3,0)

この回答へのお礼

回答頂きありがとうございます。
Excelの関数に関して詳しくないので大変勉強になりました。

お礼日時：2013/07/30 19:57