複数セルの文字列をスマートに連結する方法

質問

ウィンドウズ７Home Premium 64bit、エクセル2010で、複数セルの文字列をスマートに連結する方法を、ご教授ください。例えば：
A1 ABCD
A2 EFGH
A3 IJKL
A4 MNOP
A5 QRST
A6 UVWX
A7 YZ
７セルの文字列を、
A9 ABC...XYZ
のように、１つのセルに、文字を連結して表示させる、スマートな方法を、お教えください。
（現在は、手動のコピペで処理しています！)

当方、自称の上級者です。ウィザード、関数、ＶＢＡのどの方法でも結構です。
また、セルの数が一定でないため、できれば、範囲選択しての方法がありがたいです。
（Selection)
それが不可能なら、ＶＢＡのＦＯＲ：ＮＥＸＴで、空白セルでブレークの方法でも。

達人の回答者の方、よろしくお願いいたします。

回答No.4

jojo_dio

A列に連結したい文字列が並んでたとして、

B1セルは空欄
B2セルに　=CONCATENATE(B1,A1)　を入力

あとはB3以下にフィル操作でB2の内容をコピーしていけば、どんどん連結文字が表示されます。

お礼

早速の回答、ありがとうございます。

この関数は最初に思い浮かびましたが、範囲選択にこだわっていて、この方法は考え付きませんでした。
これは、いわば文字列の「累計」ですね。

回答No.3

okormazd

Function renketsu(rng As Range) As String

For Each c In rng
renketsu = renketsu & c
Next

End Function

お礼

早速の回答、ありがとうございます。

自作の関数も、スマートですね。

回答No.2

kokorone

http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/moji_2.htm#and

http://questionbox.jp.msn.com/qa116819.htm

自称上級者なら、説明はいらないでしょう。

お礼

早速の回答、ありがとうございます。

検索を忘れていました！　マクロの回答NO.2を参考に、
イミディエイト ウィンドウに、
for each c in selection : renketu=renketu & c.value : next : activecell.Value = renketu
と書いて実行できました。
質問と違い、結果を先頭セルに表示しました。

回答No.1

佐藤 志緒（@g4330）

=A1&A2&A3&A4&A5&A6&A7

お礼

早速の回答、ありがとうございます。