• ベストアンサー

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

400行ほどデータの入ったエクセルシートがあります。 行番号 A列  1  山田  2  鈴木  :   :  400 田中 このシートで、一行おきに2行の空白行を追加したいのですが、  1  山田  2  3  4  鈴木  5    6  :  : マウスで2行選択して右クリックメニューで挿入..を400行分やるのが大変なので 一気にやる方法を教えてください。

質問者が選んだベストアンサー

  • ベストアンサー
  • watabe007
  • ベストアンサー率62% (476/760)
回答No.1

こんにちは、マクロですが 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

itosatoito
質問者

お礼

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

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

シート1の1行目には項目名などがあり、2行目から下方にデータが有るとしたら、シート2の1行目にはシート1の項目名をコピーして貼り付け、その後にA2セルには次の式を入力して右横方向にドラッグコピーしまたのちに下方にもドラッグコピーします。 =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))),"")) 最後にシート2の全体を選択してから「コピー」し、シート1に戻ってA1セル選択してから「形式を選択して貼り付け」で「値」にチェックをして貼り付けます。 これでシート2のデータを削除すればよいでしょう。

itosatoito
質問者

お礼

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

すると、全ての回答が全文表示されます。

関連するQ&A

専門家に質問してみよう