如何在 Excel 中使用 vlookup 並串聯多個對應值？

在 Excel 中使用 VLOOKUP 時，該函數通常只會返回符合給定查找條件的第一個匹配值。然而，在許多常見的情境中，您可能需要檢索並合併與特定鍵相關的所有匹配值，例如列出班級中的所有學生或與某個類別相關的所有產品。由於標準的 VLOOKUP 函數在此方面有所限制，您可能會想知道如何實現既能查找又能將多個對應結果串連到單一儲存格的功能。下面，我們將探討幾種實用且高效的解決方法，適用於不同的 Excel 版本和用戶偏好。

在 Excel 中進行 vlookup 並串聯多個對應值

• 使用 TEXTJOIN 和 FILTER 函數（Excel365/2021）
• 使用 Kutools for Excel
• 使用使用者自訂函數
• 使用 VBA 程式碼進行多重串聯

使用 TEXTJOIN 和 FILTER 函數進行 vlookup 並串聯多個對應值

如果您使用的是 Excel 365 或 Excel 2021，TEXTJOIN 和 FILTER 函數的結合提供了一種基於公式的高效方法來查找並串聯所有匹配值。此解決方案特別適合動態和更新的數據集，因為當源數據發生變化時，它將自動刷新結果。它最適用於您的 Excel 版本支持 FILTER 函數的情況，這僅限於最近的 Office 版本。

在目標儲存格中輸入以下公式，然後如果要應用到其他行，請向下拖動公式。所有對應的匹配值都被提取並合併到一個儲存格中。請參閱截圖：

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

使用 Kutools for Excel 進行 vlookup 並串聯多個對應值

如果您覺得內建公式方法難以掌握，或者您的 Excel 版本不支持像 TEXTJOIN 和 FILTER 這樣的高級功能，Kutools for Excel 提供了一個用戶友好的圖形解決方案。Kutools 的一對多查找功能讓您只需幾個步驟即可查找並串聯多個匹配結果，無論是初學者還是高級用戶都適用。使用 Kutools，無需編寫複雜的公式或代碼，特別適合處理需要重複查找和聚合的大數據集或變量數據集。

安裝 Kutools for Excel 後，請按照以下步驟操作：

點擊 Kutools > 高級 LOOKUP > 一對多查找(返回多個結果) 打開設置對話框。在這個對話框中，您可以快速配置查找和輸出設置，步驟如下：

1. 選擇您希望顯示串聯結果的目標輸出儲存格以及包含您希望查找的值的儲存格；
2. 指示包含查找鍵和結果列的表格範圍；
3. 指定哪一列包含查找鍵（關鍵列）以及哪一列的值將被串聯（返回列）；
4. 點擊確認按鈕以確認設置並處理數據。
   

結果：Kutools 將在您選定的輸出儲存格中顯示所有匹配和串聯的值。請參閱截圖：

這種方法特別推薦給那些希望在 Excel 界面中工作而不需要複雜公式或代碼的人。它還減少了公式錯誤的可能性，並提高了處理重複查找和串聯任務的生產力。

使用使用者自訂函數進行 vlookup 並串聯多個對應值

對於熟悉 VBA（Visual Basic for Applications）的用戶，或者使用缺乏動態陣列或 FILTER 函數支持的舊版 Excel 的用戶，您可以創建自定義的使用者自訂函數 (UDF) 來實現多結果的靈活串聯。這種方法與所有 Excel 版本完全兼容，並可根據特定的分隔符號或條件進行調整。

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

2. 點擊 插入 > 模組，然後在模組窗口中粘貼以下代碼。

VBA 代碼：在儲存格中進行 vlookup 並串聯多個匹配值

Function ConcatenateMatches(LookupValue As String, LookupRange As Range, ReturnRange As Range, Optional Delimiter As String = ", ") As String
'Updateby Extendoffice
    Dim Cell As Range
    Dim Result As String
    Result = ""
    For Each Cell In LookupRange
        If Cell.Value = LookupValue Then
            Result = Result & Cell.Offset(0, ReturnRange.Column - LookupRange.Column).Value & Delimiter
        End If
    Next Cell
    If Result <> "" Then
        Result = Left(Result, Len(Result) - Len(Delimiter))
    End If
    ConcatenateMatches = Result
End Function

3. 保存並關閉 VBA 編輯器。返回到您的工作表，並通過在空白儲存格中輸入公式：=ConcatenateMatches(D2, $A$2:$A$16, $B$2:$B$16) 使用此 UDF。根據需要向下拖動填充手柄以將公式複製到其他儲存格。所有基於特定查找值的對應值將被返回並串聯到一個儲存格中，並以逗號和空格分隔。請參閱截圖：

使用 VBA 程式碼進行 vlookup 並串聯多個對應值

對於需要重複使用或希望避免在工作表儲存格中使用自定義函數的情況，您可以使用現成的 VBA 宏來直接串聯結果。在所有用戶可能未使用相同版本或插件的共享環境中，此方法運行良好。

1. 點擊 開發工具 > Visual Basic 打開 VBA 編輯器。

2. 在 VBA 窗口中，點擊 插入 > 模組，然後將此代碼粘貼到模組中：

Sub VLookupAndConcatenate()
    Dim ws As Worksheet
    Dim dataRange As Range, lookupRange As Range, resultRange As Range
    Dim dict As Object
    Dim i As Long, lastRow As Long
    Dim lookupValue As Variant, result As String
    Dim delimiter As String
    delimiter = ", "
    Set dict = CreateObject("Scripting.Dictionary")
    Set ws = ActiveSheet
    On Error Resume Next
    Set dataRange = Application.InputBox( _
        Prompt:="Please select the data range (contains lookup column and result column)", _
        Title:="Select Data Range", _
        Type:=8)
    On Error GoTo 0
    If dataRange Is Nothing Then Exit Sub
    On Error Resume Next
    Set lookupRange = Application.InputBox( _
        Prompt:="Please select the lookup range (single column)", _
        Title:="Select Lookup Range", _
        Type:=8)
    On Error GoTo 0
    If lookupRange Is Nothing Then Exit Sub
    On Error Resume Next
    Set resultRange = Application.InputBox( _
        Prompt:="Please select the starting cell for results output", _
        Title:="Select Output Location", _
        Type:=8)
    On Error GoTo 0
    If resultRange Is Nothing Then Exit Sub
    resultRange.Resize(lookupRange.Rows.Count, 1).ClearContents
    For i = 1 To dataRange.Rows.Count
        lookupValue = dataRange.Cells(i, 1).Value
        If Not dict.Exists(lookupValue) Then
            dict.Add lookupValue, dataRange.Cells(i, 2).Value
        Else
            dict(lookupValue) = dict(lookupValue) & delimiter & dataRange.Cells(i, 2).Value
        End If
    Next i
    For i = 1 To lookupRange.Rows.Count
        lookupValue = lookupRange.Cells(i, 1).Value
        If dict.Exists(lookupValue) Then
            resultRange.Cells(i, 1).Value = dict(lookupValue)
        Else
            resultRange.Cells(i, 1).Value = "Not Found"
        End If
    Next i
    MsgBox "Operation completed! Processed " & lookupRange.Rows.Count & " lookup values.", vbInformation
End Sub

3. 點擊 按鈕運行宏。輸入框將提示您選擇數據範圍、查找範圍和結果範圍。然後，串聯結果將直接顯示在選定的輸出儲存格中。

這種宏方法特別適用於經常使用不同值進行多重串聯查找的情況，因為它可以避免在工作表中充斥著 UDF 調用。

如有必要，您可以輕鬆調整代碼中的分隔符，並擴展宏以根據您的工作流程將結果輸出到儲存格或文件中。

在 Excel 中串聯多個對應值可以使用各種方法來完成，每種方法都有特定的好處，具體取決於您的情況。無論您選擇動態陣列公式、像 Kutools for Excel 這樣的插件還是基於 VBA 的方法，都能提升您分析和展示群組數據的效率。根據數據集的大小和複雜性，考慮哪種方法能為您或您的團隊提供最佳性能和易於維護的優勢。在日常操作中，檢查數據一致性，避免合併的儲存格，並驗證引用範圍以獲得最佳效果。如果遇到公式計算錯誤，請仔細檢查您的範圍是否匹配數據，並確保您使用的公式輸入方法適合您的 Excel 版本。

如需更多進階的 Excel 技巧和廣泛的實用指南，請訪問我們豐富的教程庫。