如何根据Excel中的条件轻松串联文本？

假设我有一列ID号，其中包含一些重复项和一列名称，现在，我想根据唯一ID号将名称连接起来，如左图所示，以便根据条件快速合并文本，我们如何在Excel中做？

根据条件使用用户定义的功能连接文本

使用 Kutools for Excel 根据条件连接文本

根据条件使用用户定义的功能连接文本

要将文本与唯一ID号组合在一起，可以先提取唯一值，然后创建用户定义函数以根据唯一ID组合名称。

1。 以以下数据为例，您需要首先提取唯一的ID号，请应用此数组公式： =IFERROR(INDEX($A$2:$A$15, MATCH(0,COUNTIF($D$1:D1, $A$2:$A$15), 0)),"")，将此公式输入一个空白单元格（例如D2），然后按 Ctrl + Shift + Enter 键在一起，请参见屏幕截图：

Tips:：在以上公式中， A2：A15 是您要从中提取唯一值的列表数据范围， D1 是要提取结果的列的第一个单元格。

2。 然后向下拖动填充手柄以提取所有唯一值，直到显示空白为止，请参见屏幕截图：

3。 在此步骤中，您应该创建一个 用户定义功能 要根据唯一ID号组合名称，请按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

4。 点击 插页 > 模块，然后将以下代码粘贴到 模块 窗口。

VBA代码：根据条件连接文本

Function ConcatenateIf(CriteriaRange As Range, Condition As Variant, ConcatenateRange As Range, Optional Separator As String = ",") As Variant
'Updateby Extendoffice
Dim xResult As String
On Error Resume Next
If CriteriaRange.Count <> ConcatenateRange.Count Then
    ConcatenateIf = CVErr(xlErrRef)
    Exit Function
End If
For i = 1 To CriteriaRange.Count
    If CriteriaRange.Cells(i).Value = Condition Then
        xResult = xResult & Separator & ConcatenateRange.Cells(i).Value
    End If
Next i
If xResult <> "" Then
    xResult = VBA.Mid(xResult, VBA.Len(Separator) + 1)
End If
ConcatenateIf = xResult
Exit Function
End Function

5. 然后保存并关闭此代码，返回到工作表，并在单元格E2中输入此公式， = CONCATENATEIF（$ A $ 2：$ A $ 15，D2，$ B $ 2：$ B $ 15，“，”） ，请参见屏幕截图：

6。 然后将填充手柄向下拖动到要应用此公式的单元格上，并且所有相应的名称都已根据ID编号组合在一起，请参见屏幕截图：

提示：

1.在上式中 A2：A15 是您要基于合并的原始数据， D2 是您提取的唯一值，并且 B2：B15 是您要组合在一起的名称列。

2.如您所见，我组合了用逗号分隔的值，可以根据需要更改公式的逗号“，”来使用其他任何字符。

使用 Kutools for Excel 根据条件连接文本

如果你有 Kutools for Excel，其 高级组合行 实用程序，您可以根据标准快速方便地连接文本。

安装后 Kutools for Excel，请执行以下步骤：

1。 根据一列选择要合并的数据范围。

2。 点击 库工具 > 合并与拆分 > 高级组合行，请参见屏幕截图：

3。 在 根据列合并行 对话框中，单击“ ID”列，然后单击 首要的关键 将此列作为合并数据所基于的关键列，请参见屏幕截图：

4。 然后点击 名称 要合并值的列，然后单击 结合 选项，然后为合并的数据选择一个分隔符，请参见屏幕截图：

5。 完成这些设置后，单击 OK 退出对话框，并且B列中的数据已基于键A列合并在一起。请参见屏幕截图：

使用此功能，将尽快解决以下问题：

如何将多行合并为一个并在Excel中汇总重复项？

立即下载和免费试用Excel的Kutools！

演示：使用 Kutools for Excel 连接另一列中相同单元格的文本