マクロで行全体を纏めて削除する場合

質問

マクロ初心者です。マクロで複数の行全体を纏めて削除したいと思い下の様に入力しました。
例としてBからE行、G行、JからL行を削除したいとします。
参考にしたExcelマクロ例文辞典にはRange("行:行").Deleteで一行を消す例のみ載っていますが、
組み合わせて動かしたい場合の例が載っていないのでどうしたら良いのか分かりません。

Sub mymacro1()
Range("B:E","G:G","J:L").Delete
End Sub
これでは動きませんでした。

Sub mymacro1()
Range("B:E").Delete
Range("G:G").Delete
Range("J:L").Delete
End Sub
こでではB:Eのみ削除されそれ以外は動きませんでした。

Sub mymacro1()
Range("B:E").Delete
End Sub

Sub mymacro2()
Range("C:C").Delete
End Sub

Sub mymacro3()
Range("E:F").Delete
End Sub
これだと、3つ順番に動かさないといけないのと、上から順番にいくと行がずれるため事前にずらさないといけませんので面倒です。

極端な失敗例を書いてしまったかもしれませんが、Range("行").Deleteの方法では1行から数行纏めて消す動作しか出来ないのでしょうか。それとも方法はありますか？マクロの記録で同じ事をするとActivecellを使う全く異なる記述になり、いまのところ良く理解してません。

また、例文辞典には一つの動作を行う例は沢山記載されていますが、組み合わせた場合の例が載っていません。例えば、B2から始まる表をE3に移すには
Sub GMacro044()
Range("B2").CurrentRegion.Copy_
Range("E3")
と記載できます。（本を参考にすると）

また、数式の入っているE4を表の列の最後であるE10までコピーしたい場合は
Sub GMacro050()
Range("E3").CurrentRegion_
.Columns(2).FillDown
と記載できます。（本を参考にすると）

では上記の記述を同時に行いたい場合はどうしたら良いのでしょうか？？
色々組み合わせて試しましたがどれも動きませんでした。
組み合わせの仕方さえ分かれば楽しく覚えられそうですが、
どうしてもここでつまずいています。

どなたか教えていただけましたら幸いです。
宜しくお願い致します。

回答No.2

tom04 · ベストアンサー

こんにちは！
とりあえず前者の質問に関して・・・

行・列等を削除する場合は終列・終行から削除していきます。
そうしないと、最初から削除していくと元の行・列番号が変わってしまいますので、
お示しのコードを使うとすれば

Sub mymacro1()
Range("J:L").Delete
Range("G:G").Delete
Range("B:E").Delete
End Sub

とすれば大丈夫だと思います。m(__)m

お礼

ご回答ありがとうございます。後ろから削除して行く方法は思いつきませんでした!早速試してみたところ、上手くできました。一人で考えていても思いつかない方法もあり、こうして教えてくださる事に感謝致します。ありがとうございました。

補足

先ほど教えていただいた方の
Range("B:E,G:G,J:L").delete shift:=xlshifttoleft
だと同時に処理するので順番を気にする必要はないようですが、
Range("J:L").Delete
Range("G:G").Delete
Range("B:E").Delete
の方法だと上から順番に動作するんですね。
記述の方法で動作する順番が変わることが分かったのですごく勉強になりました。

回答No.1

keithin

一つのご相談投稿では，１つのご質問内容を解決するようにしてください。これはこちらのような質問投稿掲示板の，ごく一般的なマナーです。

＃余談ですが，エクセルでは「Ａ列」「Ｂ列」「Ｃ列」，「１行目」「２行目」「３行目」のように呼ぶ習わしになっています。共通の言葉で喋るようにしないと，つまらない所で足をすくわれます。

＞組み合わせて動かしたい場合の例が載っていないのでどうしたら良いのか分かりません。

range("B:E,G:G,J:L").delete shift:=xlshifttoleft
のように。

＞同時に行いたい場合はどうしたらいい

それは具体的にどんな結果が欲しいのですか？
どこ番地のセル範囲にどんな内容（数式？生データ？）が記載してあるのを，どこ番地のセルにどんな内容で転記？コピー？したい（何をしたいの？どんな結果が欲しいの？）か，具体例を挙げてご相談を投稿し直してください。

お礼

ご回答ありがとうございます。今後は1つのスレッドに1件の質問を守りたいと思います。また、行と列の記載もご指摘ありがとうございます。ご回答頂いたrange("B:E,G:G,J:L").delete shift:=xlshifttoleftにて試してみたいと思います。""の位置がおかしかったようですね。
また、"同時に行いたい場合はどうしたらいい"という質問ですが、
B2から始まる表をE3に移し、数式の入っているE4を表の列の最後であるE10までコピーしたい場合です。こちらは再度投稿し直します。