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

下のスクリーンショットに示すように、最初の列の同じ値に基づいて XNUMX 番目の列のセルを連結する場合は、いくつかの方法を使用できます。 この記事では、このタスクを達成するための XNUMX つの方法を紹介します。

同じ値の場合は数式とフィルターを使用してセルを連結します

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

1. 2番目の列（ここではセルCXNUMXを選択）の横にある空白のセルを選択し、数式を入力します = IF（A2 <> A1、B2、C1＆ "、"＆B2） 数式バーに入力し、を押します 入力します キー。

2.次に、セルC2を選択し、連結する必要のあるセルまで塗りつぶしハンドルを下にドラッグします。

3.数式を入力します = IF（A2 <> A3、CONCATENATE（A2、 "、" ""、C2、 "" ""）、 ""） セルD2に移動し、塗りつぶしハンドルを残りのセルまでドラッグします。

4.セルD1を選択し、をクリックします 且つ > フィルタ。 スクリーンショットを参照してください：

5.セルD1のドロップダウン矢印をクリックし、チェックを外します。 （空白） ボックスをクリックし、 OK

最初の列の値が同じである場合、セルが連結されていることがわかります。

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

同じ値の場合、Kutools for Excelでセルを簡単に連結できます（数回のクリック）

上記の方法では、XNUMX つのヘルパー列を作成する必要があり、複数の手順が必要になるため、不便な場合があります。 より簡単な方法を探している場合は、 高度な結合行 からツール Kutools for Excel. 数回クリックするだけで、このユーティリティを使用すると、特定の区切り記号を使用してセルを連結できるため、プロセスが迅速かつ簡単になります。

先端: このツールを適用する前に、インストールしてください Kutools for Excel 最初に。 今すぐ無料ダウンロードへ.

• 連結する範囲を選択します。
• と同じ値で列を設定します。 主キー コラム。
• セルを結合するセパレータを指定します。
• クリック OK.

結果

同じ値の場合はVBAコードでセルを連結します

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

1。 押す 他の + F11 キーを押して Microsoft VisualBasicアプリケーション 窓。

2。 の中に Microsoft VisualBasicアプリケーション ウィンドウ、クリック インセット > モジュール。 次に、以下のコードをコピーして、 モジュール 窓。

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 forExcelでセルを簡単に連結できます