如何在 Excel 中串聯唯一值？

在 Excel 中串聯唯一值是一項常見的任務，可以通過多種方法來實現。本文將探討不同的技術，用於串聯某一列中的唯一值，並在串聯其對應值的同時列出唯一值。

僅從一列中串聯唯一值

• 使用 TEXTJOIN 和 UNIQUE 函數
• 使用 Kutools AI 助手
• 使用用戶定義函數

列出唯一值並串聯對應值

• 使用 TEXTJOIN 和 UNIQUE 函數
• 使用 Kutools for Excel
• 使用 VBA 程式碼

僅從一列中串聯唯一值

在數據分析中，有時需要將 Excel 某一列中的唯一值串聯到單一單元格中。這項任務可以根據您的偏好和數據集的複雜性，使用公式、VBA 或 Kutools 來完成。下面我們將探討一些優化的方法來高效處理此問題。

方法 1：使用 TEXTJOIN 和 UNIQUE 函數

如果您使用的是 Excel 365 或 Excel 2021，其新的 TEXTJOIN 和 UNIQUE 函數提供了一種簡單且高效的方式來串聯某一列中的唯一值。

在您希望得到串聯結果的單元格中使用以下公式：

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

方法 2：使用 Kutools AI 助手

對於更快且完全自動化的解決方案，Kutools for Excel 提供了一個創新工具——「Kutools AI 助手」。只需描述您的任務，AI 將立即生成所需結果，無需任何手動設置。這樣就消除了複雜公式或耗時配置的需求，幾秒鐘內就能獲得準確的結果。

安裝 Kutools For Excel 後，請點擊「Kutools」>「AI 助手」以打開「Kutools AI 助手」面板。

1. 選擇您想合併唯一值的單元格；
2. 在聊天框中輸入需求，例如：
   將選定範圍內的唯一值以逗號串聯，並將結果放入 C2 單元格中
3. 然後按下 Enter 鍵或點擊「發送」按鈕。Kutools AI 將分析問題，完成後請點擊「執行」按鈕以獲取結果。
   

方法 3：使用用戶定義函數

對於需要更多靈活性或希望自動化流程的高級用戶，可以創建自定義的 VBA 函數（UDF）來串聯唯一值。這種方法非常適合熟悉編程的用戶，或者需要可重複使用的解決方案的用戶。

1. 按住「ALT + F11」鍵打開「Microsoft Visual Basic for Applications」窗口。

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 (A2:A18,",")，並按下 Enter 鍵以獲取唯一的串聯結果，請參閱截圖：

列出唯一值並串聯對應值

在 Excel 中，列出唯一值並串聯其對應值是一項常見的任務，特別是在處理需要匯總或整合的數據集時。本節提供了全面的指南，幫助您高效地完成此操作。

方法 1：使用 TEXTJOIN 和 UNIQUE 函數

Excel 的現代函數如 UNIQUE、FILTER 和 TEXTJOIN 讓列出唯一值並串聯其對應值變得容易，無需使用複雜的公式。

1. 使用 UNIQUE 函數從 A 列中列出所有唯一值：

=UNIQUE(A2:A17)

2. 使用 TEXTJOIN 和 FILTER 函數串聯唯一值的對應值，拖動公式填充其他單元格，請參閱截圖：

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

方法 2：使用 Kutools for Excel

如果您擁有 Kutools for Excel，其強大的「高級合併行」功能讓您可以輕鬆列出唯一值並串聯其對應值——快速且簡單，無需任何編碼或複雜公式。只需選擇您的數據，配置設置，讓 Kutools 處理其餘部分，幾秒鐘內即可獲得專業結果。

1. 將原始數據複製並粘貼到另一個單元格以備份數據。選擇數據範圍，然後點擊「Kutools」>「合併與分割」>「高級合併行」，請參閱截圖：

2. 在「高級合併行」對話框中，配置設置：

• 點擊您希望基於其合併重複項的列名稱，然後從「操作」列的下拉列表中選擇「主鍵」；
• 然後，選擇您希望合併值的列名稱，並從「操作」列的下拉列表中選擇一個分隔符來分隔值；
• 最後，點擊「確定」按鈕。
  

結果：

Kutools 自動化了提取唯一值並使用指定分隔符串聯其對應值的過程。

方法 3：使用 VBA 程式碼

雖然 Excel 的內置函數如 UNIQUE 和 TEXTJOIN 在一定程度上可以處理這個問題，但在處理複雜場景或舊版本的 Excel 時可能有所不足。無論您是初學者還是高級用戶，本指南將引導您逐步列出唯一值並串聯其對應值，使用 VBA 程式碼完成操作。

1. 按住「ALT + F11」鍵打開「Microsoft Visual Basic for Applications」窗口。

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
    Dim xOutputRg As Range
    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
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    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
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. 然後按下 F5 鍵運行此代碼，彈出提示框提醒您選擇要基於唯一值進行串聯的數據範圍，請參閱截圖：

4. 點擊「確定」，另一個提示框彈出提醒您選擇放置結果的單元格：

5. 點擊「確定」，唯一值已被提取，並且另一列中的對應值已串聯在一起。請參閱截圖：

總之，在 Excel 中串聯唯一值可以通過多種方法高效實現，這些方法針對不同層次的專業知識和需求量身定制。選擇最適合您需求的方法，可以簡化數據處理並提高管理 Excel 中唯一值的效率。如果您對探索更多 Excel 技巧感興趣，我們的網站提供了數千個教程。