Excelで一行おきに2行の空白行を挿入したい

４００行ほどデータの入ったエクセルシートがあります。
行番号　A列
　1　　山田
　2　　鈴木
　：　 　：
　400　田中
このシートで、一行おきに２行の空白行を追加したいのですが、
　１　　山田
　２
　３
　４　　鈴木
　５　　
　６
　：　　：

マウスで２行選択して右クリックメニューで挿入..を400行分やるのが大変なので
一気にやる方法を教えてください。

No.1 ベストアンサー 回答者： watabe007 回答日時： 2012/08/21 10:00

こんにちは、マクロですが

Sub Test()
　　Dim i As Long
　　For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
　　　　Rows(i).Resize(2).Insert
　　Next
End Sub

この回答へのお礼

はじめてマクロを使ってみました。ばっちり目的が果たせました。

お礼日時：2012/08/21 10:20

No.2 回答者： KURUMITO 回答日時： 2012/08/21 10:05

シート１の１行目には項目名などがあり、２行目から下方にデータが有るとしたら、シート２の１行目にはシート１の項目名をコピーして貼り付け、その後にA２セルには次の式を入力して右横方向にドラッグコピーしまたのちに下方にもドラッグコピーします。

=IF(ROW(A1)>COUNTA(Sheet1!$A$2:$A$1000)*3,"",IF(MOD(ROW(A1),3)=1,IF(INDEX(Sheet1!$A$2:$XX$1000,ROUNDUP(ROW(A1)/3,0),COLUMN(A1))=0,"",INDEX(Sheet1!$A$2:$XX$1000,ROUNDUP(ROW(A1)/3,0),COLUMN(A1))),""))

最後にシート２の全体を選択してから「コピー」し、シート１に戻ってA１セル選択してから「形式を選択して貼り付け」で「値」にチェックをして貼り付けます。
これでシート２のデータを削除すればよいでしょう。

この回答へのお礼

あとで計算式の意味をじっくり勉強してみます。
回答ありがとうございました。

お礼日時：2012/08/21 10:23