Excelで選択した文字列を結合するマクロ

Excelで複数選択したセルの文字列を結合するマクロってありますか？
CONCATENATEや＆でいつも文字列を結合しているのですが、
一度に10セル前後結合するので効率が悪く困っています。

お手数ですがご教授いただけたらと思います。
宜しくお願い致します。

No.1 ベストアンサー 回答者： merlionXX 回答日時： 2011/05/25 17:58

> セルの文字列を結合するマクロってありますか？

そのように作ればありますよ。
複数セルを選択してから以下のマクロを実行してみてください。

Sub TEST01()
　　Dim c As Range
　　Dim myStr As String
　　For Each c In Selection
　　　　myStr = myStr & c.Value
　　Next
　　Application.InputBox("貼り付け先を選択してください。", "セル選択", Type:=8).Value = myStr
End Sub

この回答への補足

まさに探し求めていたものです！
3人の方全員にベストアンサーをつけたい所ですが3つの中で一番使いやすかったNo1の方にベストアンサーを付けさせていただきます。
皆様本当にありがとうございます！

補足日時：2011/05/26 03:02

No.3 回答者： DIooggooID 回答日時： 2011/05/25 18:16

一例です。

Sub　concate()
　　Dim　ch　As　Variant
　　Dim　char1　As　String

　　char1　=　""

　　For　Each　ch　In　Selection
　　　　　ch.Value　=　UCase(ch.Value)
　　　　　char1　=　char1　&　ch.Value
　　Next

End Sub

No.2 回答者： keithin 回答日時： 2011/05/25 18:01

簡易版：

public function concatenates(byval target as excel.range) as variant
dim h as range
for each h in target
concatenates = concatenates & h
next
end function

使い方：
=concatenates(A1:E1)
=concatenates(A1:A10)