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

質問

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

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

回答No.3

o_chi_chi · ベストアンサー

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

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

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は永久保存させていただきます。
どうもありがとうございました。

回答No.4

imogasi

ユーザー関数を作ります。
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は永久保存させていただきます。
どうもありがとうございました。

回答No.2

mu2011

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

お礼

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

回答No.1

shinkun0114

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

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

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

お礼

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