[VBA]範囲を複数選択したデータを一つの配列に格納する方法

Question

実現したいこと

VBAにて、範囲を複数選択したデータを一つの配列に格納したいです。

前提

エクセルシートに、以下のデータが入力されているとします。
**・セルA1には"テスト1"
・セルA2には"テスト2"

・セルA4には"テスト4"
・セルA5には"テスト5"**

セルA1:A2を範囲1、セルA4:A5を範囲2とします。
範囲1および範囲2をどちらも選択した状態で、該当のソースコードを実行することで、選択した2つの範囲のデータを配列に格納しようとしました。

発生している問題・エラーメッセージ

ですが、配列に格納されたのは範囲1の"テスト1"と"テスト2"のみでした。。

なぜ範囲2の"テスト3"と"テスト4"は格納されなかったのでしょうか？
原因分かる方いましたらご教示いただけないでしょうか？
初心者なので、、初歩的な質問でしたら申し訳ないです。

該当のソースコード

Dim arr As Variant

arr = Selection

Comments

[jimbe]

VBA のコードの質問なら、 java や c 関係のタグは付けないでください。

Answer 1

＞なぜ範囲2の"テスト3"と"テスト4"は格納されなかったのでしょうか？
そのような仕様だからだと思いますが、
以下のようにすれば、選択した範囲の値がすべて取得できます。

    Dim arr() As Variant
    Dim r As Range
    Dim i As Long: i = 0
    For Each r In Selection
        ReDim Preserve arr(i)
        arr(i) = r.Value
        i = i + 1
    Next