別の列に同じ値が存在する場合、Excelでセルを連結するにはどうすればよいですか？

以下のスクリーンショットに示すように、最初の列の同じ値に基づいて2番目の列のセルを連結したい場合、いくつかの方法があります。この記事では、このタスクを実行するための3つの方法を紹介します。

数式とフィルターを使用して同じ値を持つセルを連結する

次の数式は、ある列の一致する値に基づいて、対応するセルを別の列に連結するのに役立ちます。

1. 2列目の隣にある空白セルを選択し（ここではセルC2を選択）、数式バーに =IF(A2<>A1,B2,C1 & "," & B2) という数式を入力し、Enterキーを押します。

2. 次に、セルC2を選択し、結合したいセルまでフィルハンドルを下にドラッグします。

3. セルD2に =IF(A2<>A3,CONCATENATE(A2,"","",C2,"""),"") という数式を入力し、残りのセルまでフィルハンドルをドラッグします。

4. セルD1を選択し、データ > フィルター をクリックします。スクリーンショットをご覧ください：

5. セルD1のドロップダウン矢印をクリックし、(空白) のチェックボックスをオフにして、OKボタンをクリックします。

これで、最初の列の値が同じ場合、セルが連結されていることが確認できます。

注: 上記の数式を正常に使用するには、列Aの同じ値が連続している必要があります。

Kutools for Excelを使用して、数回のクリックで簡単に同じ値を持つセルを連結する

上記の方法では、2つの補助列を作成し、複数のステップが必要なため、不便かもしれません。より簡単な方法をお探しならば、Kutools for Excelの「高度な行のマージ」ツールの使用を検討してください。このユーティリティを使えば、特定の区切り文字を使用してセルを数回のクリックで連結でき、プロセスが迅速かつ手間なく行えます。

1. Kutools > 結合と分割 > 高度な行のマージ をクリックして、この機能を有効にします。

2. 「高度な行のマージ」ダイアログボックスで、以下を行うだけです：

• 連結したい範囲を選択します；
• 同じ値を持つ列をキーカラムとして設定します。
• セルを結合するための区切り文字を指定します。
• OK をクリックします。

結果

VBAコードを使用して同じ値を持つセルを連結する

VBAコードを使用して、別の列に同じ値が存在する場合、列内のセルを連結することもできます。

1. Alt + F11 キーを押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックします。次に、以下のコードをモジュールウィンドウにコピーして貼り付けます。

VBAコード：同じ値を持つセルを連結する

Sub ConcatenateCellsIfSameValues()
	Dim xCol As New Collection
	Dim xSrc As Variant
	Dim xRes() As Variant
	Dim I As Long
	Dim J As Long
	Dim xRg As Range
	xSrc    = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
	Set xRg = Range("D1")
	On Error Resume Next
	For I = 2 To UBound(xSrc)
		xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
	Next I
	On Error GoTo 0
	ReDim xRes(1 To xCol.Count + 1, 1 To 2)
	xRes(1, 1) = "No"
	xRes(1, 2) = "Combined Color"
	For I = 1 To xCol.Count
		xRes(I + 1, 1) = xCol(I)
		For J = 2 To UBound(xSrc)
			If xSrc(J, 1) = xRes(I + 1, 1) Then
				xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
			End If
		Next J
		xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
	Next I
	Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
	xRg.NumberFormat = "@"
	xRg = xRes
	xRg.EntireColumn.AutoFit
End Sub

注意：

3. コードを実行するために F5 キーを押すと、指定された範囲で連結された結果が得られます。

デモ： Kutools for Excelを使用して、同じ値を持つセルを簡単に連結する