締切済み

エクセルマクロ、空白行（セル）の挿入

2011/05/16 10:39

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

ez6zdscq
お礼率100% (14/14)

その他(Windows)
回答数2
ありがとう数4

みんなの回答 （2）
専門家の回答

みんなの回答

tom04
ベストアンサー率49% (2537/5117)

2011/05/16 19:47 回答No.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 20:11

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

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

web2525
ベストアンサー率42% (1219/2850)

2011/05/16 12:11 回答No.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 こう言うことなのかな？

質問者