プロが教える店舗&オフィスのセキュリティ対策術

400行ほどデータの入ったエクセルシートがあります。
行番号 A列
 1  山田
 2  鈴木
 :   :
 400 田中
このシートで、一行おきに2行の空白行を追加したいのですが、
 1  山田
 2
 3
 4  鈴木
 5  
 6
 :  :

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

A 回答 (2件)

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


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
    • good
    • 14
この回答へのお礼

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

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

シート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のデータを削除すればよいでしょう。
    • good
    • 1
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A