excel関数のconcatenate

質問

Lepardでexcel 2004を使っています。

concatenate関数でたくさんのセルをつなげたいのですが、
数が多いのでひとつひつ「=concatenate(a1, a2, a3...a100)
とはやりたくありません...

どなたか、いっぺんにできる方法をご存知でしょうか？？

Winだと方法があるようなのですが、Macなもので...

回答No.1

capy2009

これはマクロの出番でしょう。2008 ではマクロが使えませんが、幸い 2004 をお使いなので、マクロが利用できます。

Function Concat1(myRange As Range)
Dim r As Range
Application.Volatile
For Each r In myRange
Concat1 = Concat1 & r
Next r
End Function

という関数を作成してください。そうすれば =concat1(A1:A100) といった具合に、範囲を指定して一発で繋げる事ができます。

マクロを使いたくなければ
http://www13.ocn.ne.jp/~yshiba/exl-concat.html
のようにするくらいでしょうか。

お礼

ありがとうございます！
ご回答の早さにもちょっと感動しました。
マクロやってみます！