エクセルで、２行おきに１行追加する方法

エクセルで、２行おきに１行追加する方法

行が２０００行位あるデータについて、
１行毎では時間がかかるので、
他の方法（マクロでも作業列等）を教えて下さい。

例

行１　Ａ
行２　Ｂ
行３　Ｃ
行４　Ｄ
行５　Ｅ
行６　Ｆ
行７　Ｇ
行８　Ｈ
　　　
上記２０００行のデータを下記のように行追加をしたいのです。

行１　Ａ
行２　Ｂ
行追加
行３　Ｃ
行４　Ｄ
行追加
行５　Ｅ
行６　Ｆ
行追加
行７　Ｇ
行８　Ｈ

よろしくお願い致します。

No.1 ベストアンサー 回答者： keithin 回答日時： 2011/01/14 14:52

たとえば２行おきの場合。

添付図：
隣列に，B1に数字の１，B2に数字の２を置いてB1:B2をオートフィルドラッグして連番を記入させます。
その下に，２行おきならまず２を記入，そして４を記入してオートフィルドラッグして２，４，６，８の数字を作ります。
ＡＢ列をＢ列昇順で並べ替えると出来上がりです。


ｎ行置きの場合も同様に，Ｂ列下に継ぎ足す数字をｎおきの数字に作って操作すれば出来ますね。
また，下に継ぎ足す数字の開始番号を調整すれば，どこから空を挿入するか微調整するのも容易です。

この回答へのお礼

簡単でわかり易いご回答をありがとうございました。
とても助かりました。又、何か会ったときにはよろしくお願いいたします。

お礼日時：2011/01/15 12:00

No.2 回答者： riri1609 回答日時： 2011/01/14 14:52

私がよくする方法です。

仮にA列を追加します。（A列を選択して右クリック⇒挿入）
A1に 1 ,A2に 2 を入力
A3に =A1+3 を入力
A3をコピーし、元のデータが入力されている最終行まで貼り付ける（A列には1 2 4 5 7 ・・・と入るはずです）
A列の貼り付けた下に3を入力
その下に =(上記で入力したセル)+3 を入力　コピー
必要なだけA列のその下に貼り付け(3 5 8 ・・・となるはず）
A列を選択⇒コピー⇒値を貼り付ける
表全体を選択⇒A列を優先し昇順で並べ替え
A列を選択⇒削除

文字で書けば長ったらしいですが、一旦やってみればすぐに出来ます。

No.3 回答者： saintandre 回答日時： 2011/01/14 14:55

１、一番左に列を一列追加します

２、追加したA列のセルに以下のように値と数式を入れます

A1　1
A2　1
A3　=IF(A1=A2,A2+1,A2)
A4以降　A3をコピーして貼り付け

これで左端に「1 1 2 2 3 3 4 4 5 5...」という並びができます。

３、A列の一番下に「1 2 3 4 5...」と値を入れます
（「=A1+1」のような数式を使ってください）

４、A列全体を選んで「コピー」→「形式を選択して貼り付け」で「値」で貼り付けます

５、「並び替え」でA列をキーに昇順で並び替えます

以上です。

No.4 回答者： MackyNo1 回答日時： 2011/01/14 15:13

数式などを使用せず、補助列に簡単な文字列を使って直感的なオートフィル操作で空白行を入れるなら、以下のような操作が簡単かもしれません。

2行に1行空白行を挿入するなら、補助列の一番上に「1a」「1b」と入力して、この2つのセルをオートフィルコピー（セルの右下をダブルクリック）します。
その下のセルには「1c」と入力して下方向にオートフィルします。
これでこの列を基準に昇順に並べ替えてみてください。

No.5 回答者： mu2011 回答日時： 2011/01/14 15:46

マクロ例です。

対象シートタブで右クリック→コードの表示→以下のコード貼り付け→Ｆ５キー押下（２０００行なので少し間が空きます）

Sub 行数毎に空白行挿入()
Application.ScreenUpdating = False
行数 = 2
Range("A1").Select
Do While ActiveCell.Offset(行数).Value <> ""
ActiveCell.Offset(行数, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(行数 - 1).Select
Loop
Application.ScreenUpdating = True
End Sub

No.6 回答者： tom04 回答日時： 2011/01/14 21:13

こんばんは！

一例です。

ごくごく簡単なVBAです

Sub test()
Dim i As Long
i = 1
Do Until Cells(i * 3, 1) = ""
Rows(i * 3).Insert (xlDown)
i = i + 1
Loop
End Sub

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

No.7 回答者： imogasi 回答日時： 2011/01/14 21:30

普通はＶＢＡでやりますでしょう。

オートフィル＋並べ替えも工夫してできると思う。
ーー
関数なら
例データ
シート１にＡ１：Ａ９・・・・に
1
2
3
4
5
6
7
8
9
・・・
Ｓｈｅｅｔ２のＡ１に
=IF(MOD(ROW(),3)=0,"",INDEX(Sheet1!$A$1:$A$100,ROW()-INT(ROW()/3)))
下方向に式を複写して
結果
1
2

3
4

5
6

7
8

9
10
まずわかりやすいように１列だけでやっているが、複数列の場合
INDEX関数の列を指定するところへ
=IF(MOD(ROW(),3)=0,"",INDEX(Sheet1!$A$1:$D$100,ROW()-INT(ROW()/3),COLUMN()))
として
Sheet1のデータ
111
212
313
414
515
616
717
818
919
1020
1121
1222
ーーー
Sheet2の結果
111
212

313
414

515
616

717
818

919
1020
のようにできる。