如何在Excel中串联唯一值？

如果我有一长串的值填充了一些重复数据，那么现在，我只想查找唯一值，然后将它们串联到单个单元格中。 如何在Excel中快速轻松地解决此问题？

在列中查找唯一值，然后使用VBA代码将它们连接到一个单元格中

在一列中查找唯一值，然后使用 Kutools for Excel 将它们连接到一个单元格中

列出唯一值并使用VBA代码连接相应的值

列出唯一值并使用 Kutools for Excel 连接相应的值

在列中查找唯一值，然后使用VBA代码将它们连接到一个单元格中

下列 用户定义功能 可以帮助您将唯一值连接到列表中的单个单元格中，请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码：将唯一值连接到单个单元格中：

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. 然后回到您的工作表，并输入以下公式： = ConcatUniq（A1：A17，“，”） 放入要输出级联结果的空白单元格，然后按 输入 获取唯一的串联结果的关键，请参见屏幕截图：

备注：在以上公式中， A1：A17 是您要连接的单元格范围，而逗号“,”是您需要分隔组合值的分隔符，您可以根据需要更改它们。

在一列中查找唯一值，然后使用 Kutools for Excel 将它们连接到一个单元格中

如果您不熟悉VBA代码， Kutools for Excel 也可以帮助您，您可以将 选择重复和唯一单元格 和 结合 实用程序来实现您所需的结果。

安装后 Kutools for Excel，请执行以下操作：

1。 选择仅要合并唯一值的单元格列表。

2。 点击 库工具 > 选择 > 选择重复和唯一单元格，请参见屏幕截图：

3。 在 选择重复和唯一单元格 对话框中选择 全部唯一（包括第一个重复项） 选项下 违反的规则 部分，请参见屏幕截图：

Tips：如果要合并唯一值（不包括首次出现的重复项），请选中 仅唯一值 选项。

4。 然后点击 OK 按钮，并且只选择了唯一值，然后按 按Ctrl + C 复制它们，然后按将它们粘贴到特定位置 按Ctrl + V，请参见屏幕截图：

5。 选择粘贴的唯一单元格，然后单击 库工具 > 合并与拆分 > 合并行，列或单元格而不会丢失数据，请参见屏幕截图：

6。 在 合并列或行 对话框，选择 合并成单个单元格 在下面 根据以下选项合并选定的单元格，然后为合并的数据指定分隔符，请参见屏幕截图：

7。 然后点击 Ok or 申请 按钮，提取的唯一值已连接到一个单元格中，如以下屏幕截图所示：

立即免费下载Kutools for Excel！

列出唯一值并使用VBA代码连接相应的值

在另一种情况下，您有一个包括两列的数据范围，现在，您只想列出唯一值并连接另一列的相应值以获得以下结果，您是否有任何好的方法来完成这项工作在Excel中？

在这里，您可以应用以下VBA代码来处理此作业，请执行以下操作：

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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

VBA代码：列出唯一值并连接相应的数据

Sub test()
'updateby Extendoffice
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3。 然后按 F5 键运行此代码，并弹出一个提示框，提醒您根据唯一值选择要连接的数据范围，请参见屏幕截图：

4。 点击 OK，则已提取唯一值，并将它们在另一列中的对应值连接在一起，形成一个新的工作表。

备注：在上面的代码中，您可以更改红色逗号 xArr（xDic.Item（xArr（I，1）），2）= xArr（xDic.Item（xArr（I，1）），2）＆“,“＆xArr（I，2） 在此脚本中使用您要分隔组合数据的任何其他定界符。

列出唯一值并使用 Kutools for Excel 连接相应的值

如果你有 Kutools for Excel，其 高级组合行 功能，您无需任何代码即可快速轻松地解决此问题。

1。 首先，如果要保留原始数据，则应复制原始数据。 然后根据唯一值选择要连接的数据范围。

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

3。 在 高级组合行 对话框中，单击只列出唯一值的列名，然后单击 首要的关键，请参见屏幕截图：

4。 然后，单击要连接的另一个列名，然后单击 结合，然后选择一个分隔符来分隔合并的数据，请参见屏幕截图：

5。 然后点击 Ok 按钮，这些值已经根据另一列的唯一值进行了级联，如下图所示：

立即免费下载Kutools for Excel！