エクセルのセルの結合について質問です。

質問

エクセルのセルの結合について質問です。

A1のセルに「C105,C106,C107,C108」
A2のセルに「C109,C110,C111,C112」
と入っているのを結合して
単一のセルに「C105,C106,C107,C108,C109,C110,C111,C112」
とするマクロを教えて下さい。10行くらいに対応させたいです。
よろしくお願いします。

回答No.3

m_and_dmp · ベストアンサー

私はつぎのようなマクロを使っています。
横方向に連続する複数のセルを選択してつぎのマクロを実行するとそれぞれのセルに入っていたデータが結合されて先頭のセルに入ります。
これは貴要望とは多少違うものですが、少し変更を加えたら希望通りになると思いますので参考にして下さい。

Sub 結合()
CCC = Selection.Columns.Count
CC1 = Selection.Column
CC2 = CC1 + CCC
RR = Selection.Row

MMerge:
VVM = ""
RRTRY:
For i = 1 To CCC
VVM = VVM & Cells(RR, CC1 + i - 1).Value
Next i

Selection.ClearContents
Cells(RR, CC1).Value = VVM

End Sub

お礼

参考になりました！！！
頑張って行の結合のマクロを作ってみます。
ありがとうございましたm（_　_）m

回答No.2

mu2011

一般的に文字列の連結は「＆」で関数ならば=A1&A2、ＶＢＡならばRange("A1") & Range("A2")になります。

多分、コミュニティからはカテゴリ相違で削除されると思うのでご質問の意図は、「10行くらいに対応させたいです。」の実現ならば、この辺りをもう少し具体的に別カテゴリで再質問しては如何でしょうか。

お礼

カテゴリ選択も大事ですよね(^^;)
ご回答、ご指摘ありがとうございました！！！

回答No.1

noname#145976

マクロ
範囲指定で文字列を連結:Excel エクセルの使い方-ユーザー定義関数/VBA
http://www.relief.jp/itnote/archives/001342.php

関数ほか
複数セルの文字を一つのセルに－CONCATENATE関数・文字列連結演算子:Excel エクセルの使い方-関数/計算式-文字列操作
http://www.relief.jp/itnote/archives/001157.php

お礼

参考になりました！！
ありがとうございます！！