ExcelのVBAで複数行削除を行う場合
Excel2007のVBAで複数行を削除する方法を教えて下さい。
Excel2003で使用していたマクロが使えなくなってしまいました・・・。
下記のようなExcelシートに対して複数行ずつ行を削除し、削除対象が無くなるまで
削除処理を行うか、指定した行まで削除処理を行うという事をしたいのですが
うまく動きません。
例
A列 B列 C列 D列 E列
1行目 aaa1 bbb1 ccc1
2行目 ccc2
3行目 ccc3
4行目 ccc4
5行目 aaa2 bbb2 ccc1
6行目 ccc2
7行目 ccc3
8行目 ccc4
例に対しての結果
A列 B列 C列 D列 E列
1行目 aaa1 bbb1 ccc4
2行目 aaa2 bbb2 ccc4
例に対して、複数行(指定した行数ここでは3行)の削除を行いたいのですが、
単純に複数行(3行)ずつ削除していくのではなく。
1行目や5行目にあるように文字や情報が入力されているA列とB列の情報は
残しつつ、4行目のC列以降の列の情報はすべて活かしていくという事をしたいのです。
Excel2003の時に使用していたVBAは以下のものです。
Sub 行を削除するマクロ()
Workbooks("xxxx.xlsx").Activate '処理を行いたいExcel ※１
n = n + 0
LastRow = 2138 '処理を終了させたい行 ※２
Sheets("Sheet1").Select '処理を行いたいシート ※３
Do Until (n > LastRow)
Rows(n + 4).Delete Shift:=xlsiftUp '削除したい行指定 ※４
n = n + 3
Loop
End Sub
皆様の良いアドバイスやお知恵をお貸しください。
よろしくお願いします。
