締切済み

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

2011/12/25 22:33

ウィンドウズ７Home Premium 64bit、エクセル2010で、複数セルの文字列をスマートに連結する方法を、ご教授ください。例えば： A1 ABCD A2 EFGH A3 IJKL A4 MNOP A5 QRST A6 UVWX A7 YZ ７セルの文字列を、 A9 ABC...XYZ のように、１つのセルに、文字を連結して表示させる、スマートな方法を、お教えください。（現在は、手動のコピペで処理しています！) 当方、自称の上級者です。ウィザード、関数、ＶＢＡのどの方法でも結構です。また、セルの数が一定でないため、できれば、範囲選択しての方法がありがたいです。（Selection) それが不可能なら、ＶＢＡのＦＯＲ：ＮＥＸＴで、空白セルでブレークの方法でも。達人の回答者の方、よろしくお願いいたします。

TammyG3
お礼率100% (13/13)

Windows 7
回答数4
ありがとう数4

みんなの回答 （4）
専門家の回答

みんなの回答

jojo_dio
ベストアンサー率41% (24/58)

2011/12/25 23:50 回答No.4

A列に連結したい文字列が並んでたとして、 B1セルは空欄 B2セルに　=CONCATENATE(B1,A1)　を入力あとはB3以下にフィル操作でB2の内容をコピーしていけば、どんどん連結文字が表示されます。

質問者

お礼 2011/12/26 01:20

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

ログインすると、全ての回答が全文表示されます。

okormazd
ベストアンサー率50% (1224/2412)

2011/12/25 22:58 回答No.3

Function renketsu(rng As Range) As String For Each c In rng renketsu = renketsu & c Next End Function

質問者

お礼 2011/12/26 01:17

早速の回答、ありがとうございます。自作の関数も、スマートですね。

ログインすると、全ての回答が全文表示されます。

kokorone
ベストアンサー率38% (417/1093)

2011/12/25 22:55 回答No.2

http://www.eurus.dti.ne.jp/yoneyama/Excel/kansu/moji_2.htm#and http://questionbox.jp.msn.com/qa116819.htm 自称上級者なら、説明はいらないでしょう。

質問者

お礼 2011/12/26 01:15

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

ログインすると、全ての回答が全文表示されます。