離れた複数列をまとめて列番号(数字)で選択する方法(Excel VBA)

【本日のミッション】

Excel VBAにて、離れた複数列をまとめて選択せよ。
ただし、列番号にはアルファベットを使用せず、数字のみで選択すること。

下記のように選択したい、というミッションです。
でも、B列、D列という風にアルファベットは使わずに、2列目、4列目という風に数字で表現すること、という条件付きです。

答えはこちら3つ目の「離れた列を選択3」プロシージャになります。

Sub 離れた列を選択1()
    Range("B:B,D:D,F:H").Select
End Sub

Sub 離れた列を選択2()
    Range("B1,D1,F1:H1").EntireColumn.Select
End Sub

Sub 離れた列を選択3()
    Union(Columns(2), Columns(4), Range(Columns(6), Columns(8))).Select
End Sub

列番号が決まっているときはいいんですよ。

「離れた列を選択1」とか「離れた列を選択2」プロシージャで。

出来上がったコードも何をしているのか一目瞭然ですものね。

でもね、でもね、実際の業務はそんなに甘くないの。

何かの列の3行右の列とか、ある列番号×10の列とか・・・、いろいろやんなくっちゃいけないわけ。

そんなときは、「離れた列を選択3」プロシージャの方法がとっても役に立ちます。

■Unionメソッド

Union(セル範囲1,セル範囲2,セル範囲3,セル範囲4以降・・・)

複数のセル範囲をひとまとまりの集合体にします。

今回の例であれば、2列目、4列目、6~8列目を一つの集合体として選択しています。

ちなみに「セル範囲1」と「セル範囲2」は必ず指定しないといけません。集合体を作るわけですからね♪

■スポンサーリンク

■ランキングに参加しています。
↓このブログを気に入っていただけましたら、ポチッとお願いします。
にほんブログ村 IT技術ブログへ
にほんブログ村