如何在Excel中根据另一列中的相同值连接单元格？

如下图所示，如果你想根据第一列中的相同值来连接第二列中的单元格，可以使用几种方法。本文将介绍三种实现此任务的方式。

使用公式和筛选器根据相同值连接单元格

以下公式可帮助基于另一列中的匹配值连接一列中的相应单元格。

1. 选择第二列旁边的空白单元格（此处我们选择单元格C2），在编辑栏中输入公式 =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轻松连接相同值的单元格