如何在 Excel 中根據另一列中的相同值合併單元格？

如下方截圖所示，如果你想根據第一列中的相同值合併第二列的單元格，可以使用幾種方法。本文將介紹三種實現此任務的方式。

使用公式和篩選功能合併具有相同值的單元格

以下公式可幫助根據另一列中的匹配值合併某一列中對應的單元格。

1. 選擇第二列旁邊的一個空白單元格（這裡我們選擇單元格 C2），在編輯欄(F)中輸入公式 =IF(A2<>A1,B2,C1 & "," & B2)，然後按 Enter 鍵。

2. 然後選擇單元格 C2，並向下拖動填充柄到需要合併的單元格。

3. 在單元格 D2 中輸入公式 =IF(A2<>A3,CONCATENATE(A2,",""",C2,""""),"")，然後向下拖動填充柄至其餘單元格。

4. 選擇單元格 D1，然後點擊 數據 > 篩選。請參見截圖：

5. 點擊單元格 D1 中的下拉箭頭，取消勾選 (空白) 框，然後點擊 確定 按鈕。

你可以看到如果第一列的值相同，單元格已經被合併。

注意：為了成功使用上述公式，A 列中的相同值必須是連續的。

輕鬆合併具有相同值的單元格（只需幾次點擊）使用 Kutools for Excel

上述方法需要創建兩個輔助列並且涉及多個步驟，可能不太方便。如果你正在尋找更簡單的方法，可以考慮使用 Kutools for Excel 的高級合併行工具。只需幾次點擊，這個工具就可以讓你使用特定分隔符合併單元格，使整個過程快速且無憂。

1. 點擊 Kutools > 合併與分割 > 高級合併行 以啟用此功能。

2. 在高級合併行對話框中，你只需要：

• 選擇你想合併的區域；
• 設置具有相同值的列作為關鍵列。
• 指定一個分隔符來合併單元格。
• 點擊 確定。

結果

使用 VBA 代碼合併具有相同值的單元格

你也可以使用 VBA 代碼來根據另一列中的相同值合併單元格。

1. 按 Alt + F11 鍵打開 Microsoft Visual Basic 應用程序窗口。

2. 在 Microsoft Visual Basic 應用程序窗口中，點擊 插入 > 模塊。然後複製並將以下代碼粘貼到模塊窗口中。

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 輕鬆合併具有相同值的單元格