《エクセル2000》100個以上のセルを一気につなげたい

セルをつなげる時は、通常＆かCONCATENATE関数を使うと思いますが、今回つなげるセルの数が100をゆうに超えます。

ひとつひとつセルを設定していくのではなく、一気に範囲指定する方法はありませんか？

No.3 ベストアンサー 回答者： o_chi_chi 回答日時： 2006/02/02 18:29

マクロでするのはどうですか？

下記のマクロは、
マウスでつなげるセルを選択してマクロを
実行するとＡ列につながった文字列が設定
されます。

Sub m()
Dim a As Object
Dim b As Object
Dim c As String
Set a = Application.Selection
c = ""
For Each b In a
c = c & b.Value
Next
Cells(a.Row, 1).Value = c
End Sub

この回答へのお礼

今回別の方法で解決しましたが、このVBAは永久保存させていただきます。
どうもありがとうございました。

お礼日時：2006/02/02 20:21

No.4 回答者： imogasi 回答日時： 2006/02/02 19:26

ユーザー関数を作ります。

VBE画面にて、挿入-標準モジュール
その画面に
Function con(a)
Dim cl As Range
For Each cl In a
If cl <> "" Then
c = c & cl
End If
Next
con = c
End Function
を貼り付ける。
どこでもデータのないセルで
=CON(B4:F6) のように式を入れます。
=CON(といれマウスで範囲指定し、）を入れてENTERでよい。
範囲指定の範囲の
（A）左のセルから右のセルへ
（B)上の行のセルから下の行のセルへ
結合が行われます。
１塊でないとうまくいきません。CTRLを押しての範囲指定はうまくいかない。

この回答へのお礼

いつもお世話になっております。
今回別の方法で解決しましたが、このVBAは永久保存させていただきます。
どうもありがとうございました。

お礼日時：2006/02/02 20:22

No.2 回答者： mu2011 回答日時： 2006/02/02 18:18

安直ですが、キスト形式で一旦保存し、テキストエディタで編集して、再度エクセルで読み込む方法は如何でしょうか。

この回答へのお礼

こちらの方法で無事解決しました。
ありがとうございました。

お礼日時：2006/02/02 20:20

No.1 回答者： shinkun0114 回答日時： 2006/02/02 18:15

　そのセルは連続しているのでしょうか？

もし結合するセルが連続しているのであれば、小手先の方法ですいませんが、
こんな方法があります。

　たとえば、A1～A100までを結合する場合、
1.B1セルに　=A1
2.B2セルに　=B1&A2
3.B2セルをB100セルまで下にコピー

これで、B100セルにはA1～A100の文字列を結合したものが入ります。

この回答へのお礼

ありがとうございました。
現在時間に追われておりますもので、簡単なお礼になってしまうことをお許し下さい。

お礼日時：2006/02/02 20:20