エクセル２００７ 複数セルのデータを１つに連結

質問

いつもお世話になります。

エクセルで、複数セルのデータを１つに連結して表示させる方法を教えてください。
データ件数が多い（1000件以上）ため、
関数（CONCATENATE）や、連結記号（＆）　は、セルを１つずつ選択する時間が掛かるため、
その他に方法があれば教えてください。
また関数（CONCATENATE）でセル範囲をドラッグなど簡単に指定できる方法があれば教えてください。

【やりたいこと】
　Ａ列が同じデータの場合、Ｂ列の値をＣ列のセルに連結して表示させたい

【イメージ】
Ａ列 Ｂ列 Ｃ列
xxx aaa aaa bbb ccc ddd eee
xxx bbb
xxx ccc
xxx ddd
xxx eee
yyy ffff fff ggg hhh
yyy gggg
yyy hhh
zzz iii iii jjj
zzz jjj

回答No.3

mu2011

Ｃ列にデータ結合する場合に区切り文字（仮にスペース）を考慮すると関数では厳しいと思う。
面白そうなのでマクロにしてみましたが如何でしょうか。
（１）対象のシートタブ上で右クリック→コードの表示→サンプルコードを貼り付け→Ｆ５キー押下

サンプルコード
Sub Sample()
Dim wk()
Set Dic = CreateObject("Scripting.Dictionary")
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
buf1 = Cells(i, 1)
buf2 = Cells(i, 2)
If Not Dic.Exists(buf1) Then
Dic.Add buf1, buf2
ReDim Preserve wk(n)
wk(n) = i: n = n + 1
Else
Dic.Item(buf1) = Dic.Item(buf1) & " " & buf2
End If
Next i
''出力
Keys = Dic.Items
For j = LBound(wk) To UBound(wk)
Cells(wk(j), "C") = Keys(j)
Next j
End Sub

回答No.2

imogasi

「手作業ならできるが、面倒だ」という類のことは、エクセルではそれを避けるには、ＶＢＡでやるしかない。勉強して。
ＶＢＡでやるとしても
（１）この質問に書いてないのは、セルは３列だけか。存在する列全部を結合するのか
（２）セル結合をしたほうが良いのか（ＶＢＡなら出来ないことも無いから）？値を結合して所定のセルに入れるのか。
ーー
こんな簡単なコードで出来るのでは？
Sub test01()
d = Range("a65536").End(xlUp).Row
MsgBox d
For i = 2 To d
c = Cells(i, 256).End(xlToLeft).Column
MsgBox c
s = ""
For j = 1 To c
s = s & Cells(i, j)
Next j
Cells(i, "G") = s
Next i
End Sub
セル結合するなら
上記の一部後半を
Range(Cells(i, "A"), Cells(i, j - 1)).MergeCells = True
Cells(i, "G") = s
Cells(i, "A") = s
Next i
End Sub
＞関数（CONCATENATE）でセル範囲をドラッグなど簡単に指定できる方法があれば
ない。
=CONCATENATE(A2,B2,C2)
などのＡ２，Ｂ２，Ｃ２はセルをクリックで指定できる。ＣＯＮＣＡＴＥＮＡＴＥだからではなく、関数一般で出来るはなし。
Ａ２：Ｃ２のような指定は出来ないようだ。疑問に思ったら解説書や、ＷＥＢで「エクセル関数　ＣＯＮＣＡＴＥＮＡＴＥ」で照会するとかやってみる労を惜しむな。

回答No.1

kybo

実際にセルに入力されているデータが、アルファベットであれば、以下の数式をＣ1に入れ、下へコピーでできます。

=IF(COUNTIF(A$1:A1,A1)=1,PHONETIC(OFFSET(B1,0,0,COUNTIF(A:A,A1))),"")

そうではない場合、結合する部分をＶＢＡを使用し、ユーザー定義関数等にすればできます。

VBEの画面で標準モジュールを追加し、以下のように記述

Function joint(R As Range) As String
Dim C As Range
For Each C In R
joint = joint & C.Value
Next C
End Function

セルには、以下のように入力。

=IF(COUNTIF(A$1:A1,A1)=1,joint(OFFSET(B1,0,0,COUNTIF(A:A,A1))),"")