こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

エクセルマクロ、空白行(セル)の挿入

データがA、B、C、D、E列100行まであります。
このうちD、E列を除き、エクセルのマクロで1行ごとに空白で10行挿入したいです。
(A、B、C、D列のデータに空白セルを10行分挿入し、下にシフトするイメージ。D、E列はそのまま。)
ご教授頂きたく、お願いします。

投稿日時 - 2011-05-16 10:39:47

QNo.6741255

困ってます

このQ&Aは役に立ちましたか?

2人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

こんばんは!
横からお邪魔します。

Sub test()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 4 Step -1
Range(Cells(i, 1), Cells(i + 9, 3)).Insert (xlDown)
Next i
End Sub

こんな感じですかね?m(__)m

投稿日時 - 2011-05-16 19:47:16

お礼

ご回答ありがとうございます。バッチリできました。
いろんな方法があるんですね。
web2525さんの回答でも "Do Until Selection.Row = 1"の"1"を"4"に変えて試してみたら思った通りにできました。
お二人ともどうもありがとうございました。

投稿日時 - 2011-05-16 20:11:17

ANo.1

Range("A65535").End(xlUp).Select
Selection.Resize(10, 3).Select
Do Until Selection.Row = 1
Selection.Insert Shift:=xlDown
Selection.Offset(-1, 0).Select
Loop

こう言うことなのかな?

投稿日時 - 2011-05-16 12:11:16

お礼

早速のご回答ありがとうございます。試してみたらできました。
最初に説明不足でしたが、実は見出し行が1から3行目まであり、4行目から空白行(セル)を挿入したいのですが、その場合どうしたらよいのでしょうか?

投稿日時 - 2011-05-16 18:34:17

あなたにオススメの質問