VBAでまとめてセル選択ができない

Question

VBAでまとめてセル選択ができない

上でCtrl+Shift+矢印キーを入力すると，連続したセルの終端まで選択できる．
しかし，この操作を「マクロの記録」し，実行したところ，まとめてセル選択ができなかった．

発生している現象

下図の状態から下記の操作のマクロの記録を実施する．

1. A1セルを選択
2. Ctrl+Shift+下矢印キーでA1:A2を選択
3. Ctrl+B1セルをクリックでA1:A2,B1を選択
4. Ctrl+Shift+下矢印キーでA1:A2,B1:B2を選択

自動生成されたマクロは以下のようになる．

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range("A1:A2,B1").Select
    Range("B1").Activate
    Range(Selection, Selection.End(xlDown)).Select
End Sub

上記のマクロを実行すると，下図の状態になる．
A1:A2,B1:B2の選択を行いたいが，A1:A2のみしか選択されない．

質問

VBAを用いて，あるセルが選択がSelectされている状態で，追加でセル選択する方法を教えていただきたいです．

Answer 1

ではなく、

というような状態を再現したいということでしょうか。

Unionは隣接した矩形範囲はひとつのAreaになってしまうようで、

    Union(Range("B1:B2"), Range("A1:B2")).Select

では、前の図のようになってしまいます。

    Range("B1:B2,A1:B2").Select

で、後の図の状態を再現できます。

目的は、Areasを使いたいということでしょうか。

追記

投稿したら解決済みになっていた。
Unionでよかったのね。

Answer 2

マクロの記録は、プログラムを作るツールではありません。
チョー便利なヘルプ機能です。
一つ一つの動作とどんなコードが対応してるのかを理解してから
自分でコードを作っていきましょう。

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("A1").Activate
    Range(Selection, ActiveCell.End(xlDown)).Select
    Range("A1:A2,B1").Select
    Range("B1").Activate
    Range(Selection, ActiveCell.End(xlDown)).Select
End Sub

条件の後出しですか。

Sub Macro2()
'
' Macro2 Macro
'

'
    Range("A1").Activate
    Range(ActiveCell, ActiveCell.End(xlDown)).Select
    Range("A1:A3,C1").Select
    Range("C1").Activate
    Union(Selection, Range(ActiveCell, ActiveCell.End(xlDown))).Select
End Sub

Comments

[Royboon]

ご回答ありがとうございます。
上記のご回答は，A1:A2,B1:B2の選択ではなく，A1:B2の選択ではないでしょうか．
例えば，A1:A3,C1:C3のように，離れたところの選択に対応しておりません．
引き続きよろしくお願いいたします．

[Royboon]

ご回答いただきありがとうございました．

Answer 3

3のパターンを再現するのは無理ですが、
行と列単位で選択範囲を拡張するRange.Resizeプロパティという物があります。

Range("A1").Select
Selection.Resize(Selection.Rows.Count + 1).Select
Selection.Resize(, Selection.Columns.Count + 1).Select

これでA1を選択してから、A1:A2に拡張。
A1:A2からA1:B2の再現は可能です。

追記
失礼しました。選択範囲を追加するApplication.Unionと言う物もあります。
こちらだと要望の動作ができると思います。

Range("A1").Select
Application.Union(Selection, Range("A2")).Select
Application.Union(Selection, Range("B1")).Select
Application.Union(Selection, Range("C4")).Select

このコードはA1、A2、B1まで選択して、次に離れたC4を選択した物です。

Comments

[Royboon]

貴重なご意見ありがとうございました．
ただ，今回実現したい操作は任意の離れたセルの選択です．
またお気づきの点がございましたらよろしくお願いいたします．

[Royboon]

ご回答いただきありがとうございました．
Unionメソッドを使うとのこと，勉強になりました．
また今後機会がありましたらよろしくお願いいたします．