複数のセル（A1とA2とA3など）に入っている値を一つの変数に代入したい

Question

 Dim str As String

str = Range("A1").Value & Range("A2").Value & Range("A3").Value

上記では、問題なく、できるのですが、下記では「型が一致しません。」になってしまい、うまくいきません。
下記のように短縮して書く書き方ありませんでしょうか？

やりたいこととしては、複数のセル（A1とA2とA3など）に入っている値を一つの変数に代入したいです。

str = Range("A1:A3").Value

Comments

[Y.H.]

> うまくできません。
どうなることを期待し、実際どうなって、期待度どう異なるかを具体的に質問に記載ください。
エラーになる場合はエラーメッセージを省略せずに質問に記載ください。

[退会済みユーザー]

エラーメッセージは、「型が一致しません。」になってしまします。
やりたいことは、複数のセル（A1とA2とA3など）に入っている値を一つの変数に代入したいです。

Answer 1

Excelのバージョンが指定されていないので最新バージョンで。
worksheet関数のTEXTJOIN()を使用します。

str = Application.WorksheetFunction.TextJoin("",TRUE,Range("A1:A3"))

Answer 2

解決できました。。。。。。。。。

Comments

[Y.H.]

どう解決したのかを記載ください。