Excel VBA　長い構文を折り返したい

解決済

質問者：suzupen
質問日時：2011/05/09 14:25
回答数：3件

いつもお世話になっています。
タイトル通りの質問です。
下記のような複数のセルを選択して削除という構文ですが、セルの途中で構文を区切って
見やすくしたいと思います。

Range（"E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28,L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
Selection.ClearContents

そこで、
Range("E4,G4,…H28 _　　※半角スペース&アンダーバー
L28…").Select

Range("E4,G4,…H28" _　　※ダブルクォーテーション&半角スペース&アンダーバー
"L28…").Select

と試してみましたが、エラーもしくは実行エラーになります。
区切らずそのままか、構文を二つにわけるのであれば動くのでそれでもいいのですが、
もっとすっきりした方法があるのではないかと気になります。
ご存じの方教えてください。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.3ベストアンサー

回答者： keithin
回答日時：2011/05/09 14:57

方法1：

Range("E4,G4,F6:G6,T8,S10,S12,S15,S18,S20," _
& "S22,G25,K25,O25,H28,L28,H29,L29,L31,H32," _
& "L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
Selection.ClearContents

あるいは
Range("E4,G4,F6:G6,T8,S10,S12,S15,S18,S20," _
& "S22,G25,K25,O25,H28,L28,H29,L29,L31,H32," _
& "L32,H33,L33,L34,H40,L41,L42,H43,L44").ClearContents

などのように。

方法２：
Range（"E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28,L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44").Select
を行い，要するに目的のセル範囲をとりあず選択した状態でワークシート画面に戻ります．

名前ボックスに　TargetRng　のように名前を記入し，Enterしてセル範囲に名前を付けます
または挿入メニュー（数式タブ）の名前の定義で名前を付けます

＃名前を付ける範囲を間違えた/修正/編集したい時は，挿入メニュー（数式タブ）の名前の定義(名前の管理）で修正します

マクロは
range("TargetRng").clearcontents
のように，範囲に定義した名前によって操作します。

＃この方法は無尽蔵に沢山の飛び飛び領域に対して出来るワケではありませんが，ご相談に書かれた程度であれば対応できます。

- 3
- 件

通報する

この回答へのお礼

このたびも早々に丁寧な回答いただきありがとうございます。
スマートで期待していたとおりの解決方法で大変感謝しています。
また機会がありましたらよろしくお願いいたします。

通報する

お礼日時：2011/05/09 16:20

No.2

回答者： mu2011
回答日時：2011/05/09 14:56

一例です。

前半 = "E4,G4,F6:G6,T8,S10,S12,S15,S18,S20,S22,G25,K25,O25,H28"
後半 = "L28,H29,L29,L31,H32,L32,H33,L33,L34,H40,L41,L42,H43,L44"
Range(前半 & ", " & 後半).ClearContents