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

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

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

例

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

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

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

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

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

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


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

この回答へのお礼

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

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

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
のようにできる。

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.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.4 回答者： MackyNo1 回答日時： 2011/01/14 15:13

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

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

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.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列を選択⇒削除

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