Excelで選択した範囲の文字列をVBAの変数に代入したい。

Question

###前提・実現したいこと
下記の図のようにA列で選択した全てのセルを変数か配列に代入したいです。

###試した方法1
Sub test1()
Dim x As Variant
x = ActiveCell.Value
MsgBox x
End Sub

結果
一番最後の安田のみ取得

###試した方法2
Sub test2()
Dim i As Variant
Dim x(4) As Variant
i = 1

For i = 1 To 4
x(i) = ActiveCell.Value
MsgBox x(i)
Next
End Sub

結果
変数xの配列全てに安田が入りました。

色々試してみたのですがうまくいきませんでした。
申し訳ないのですが、お力をお貸しください。

###回答を貰って
範囲の文字列をVBAの配列に代入できたので、サンプルを設置します。

Sub Sample3()
Dim c As Range
Dim x() As Variant
Dim i As Integer
i = 1

For Each c In Selection
    ReDim Preserve x(i)
    x(i) = c.Value
    MsgBox x(i)
    i = i + 1
Next c

End Sub

Answer 1

Selection でどうスかね。

http://officetanaka.net/excel/vba/tips/tips111.htm

Comments

[asasasas]

無事配列に入れることができました。
かなりの時間悩んでいたので凄く助かりました。
ありがとうございます。