エクセルで空白行を挿入するには

質問

一つの列に２００ほどデータがあるとします。
そこで１行おきに空白行を挿入していきたいのですが手でいちいち空白行を挿入していてはらちがあきません。
関数等も含めて、なにか良い方法はないでしょうか。

例　セルＡ１
　　セルＡ２
　　セルＡ３　以下続く
　　　↓
　　セルＡ１
　　空白行（セル）
　　セルＡ２
　　空白行（セル）
　　セルＡ３
　　空白行（セル）　以下続く

　　といった具合です。

回答No.2

papayuka · ベストアンサー

マクロでやれば簡単だと思います。

Sub Test()
For i = Range("A65536").End(xlUp).Row To 2 Step -1
　　Rows(i).Insert
Next i
End Sub

お礼

マクロで教えていただいてありがとうございます。これなら何度でもワンタッチですね。

回答No.3

macchan1

空白列（例えばＢ1セル）に「1」と入力してＣｔｒｌキーを押しながら下方向にオートフィルして連続データを入力し、そのまま右クリック「コピー」でその1つ下のセルを選択して右クリックで「貼り付け」します。

次にＢ列にカーソルを置いて、Ａ↓Ｚの並べ替えアイコンをクリックすればＯＫです（最後に数字の補助列を削除）。

お礼

ありがとうございます。データ数にもよりますがこの方法もありですね。

回答No.1

merlionXX

まずデータの入っている行について、あいている列にうえから1、3、5と連番をふります。（1行目に1を2行目に3を入れてあとはドラッグして自動でできましね？）
つぎにデータがなくなった部分で同じように、2、4、6と連番をふります。

そして連番をふった列をキーにして、メニュー、データ、並べ替えでご希望の状態になります。

お礼

ありがとうございます。これなら簡単にできますね。