如何在Excel中的一个单元格中通过vlookup返回多个值？

网友投稿 627 2024-01-22

如何在Excel中的一个单元格中通过vlookup返回多个值？

通常，在Excel中，当您使用VLOOKUP函数时，如果有多个值与条件匹配，则只需获取第一个即可。但是，有时，您希望将符合条件的所有相应值返回到一个单元格中，如下面的屏幕截图所示，如何解决呢？

Vlookup使用TEXTJOIN函数将多个值返回到一个单元格中（Excel 2019和Office 365）

Vlookup将所有匹配的值返回到一个单元格 Vlookup将所有没有重复的匹配值返回到一个单元格

Vlookup使用用户定义的函数将多个值返回到一个单元格

Vlookup将所有匹配的值返回到一个单元格 Vlookup将所有没有重复的匹配值返回到一个单元格

Vlookup通过有用的功能将多个值返回到一个单元格

Vlookup使用TEXTJOIN函数将多个值返回到一个单元格中（Excel 2019和Office 365）

如果您拥有较高版本的Excel（例如Excel 2019和Office 365），则有一个新功能- 文字加入，借助这一强大的功能，您可以快速进行vlookup并将所有匹配的值返回到一个单元格中。

Vlookup将所有匹配的值返回到一个单元格

请将以下公式应用于要放入结果的空白单元格，然后按 Ctrl + Shift + Enter 键一起获得第一个结果，然后将填充手柄向下拖动到要使用此公式的单元格，您将获得所有对应的值，如下图所示：

=TEXTJOIN(",",TRUE,IF($A$2:$A$11=E2,$C$2:$C$11,""))

请注意： 在上式中 A2：A11 查找范围包含查找数据， E2 是查找值， C2：C11 是您要从中返回匹配值的数据范围，“,“是用于分隔多个记录的分隔符。

Vlookup将所有没有重复的匹配值返回到一个单元格

如果要基于查找数据返回所有匹配值而不重复，则以下公式可能会对您有所帮助。

请复制以下公式并将其粘贴到空白单元格中，然后按 Ctrl + Shift + Enter 键在一起以获得第一个结果，然后复制此公式以填充其他单元格，您将获得所有对应的值，而无需使用重复的值，如下面的屏幕截图所示：

=TEXTJOIN(",", TRUE, IF(IFERROR(MATCH($C$2:$C$11, IF(E2=$A$2:$A$11, $C$2:$C$11, ""), 0),"")=MATCH(ROW($C$2:$C$11), ROW($C$2:$C$11)), $C$2:$C$11, ""))

Vlookup使用用户定义的函数将多个值返回到一个单元格

上面的TEXTJOIN函数仅适用于Excel 2019和Office 365，如果您具有其他较低的Excel版本，则应使用一些代码来完成此任务。

Vlookup将所有匹配的值返回到一个单元格

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

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

VBA代码：Vlookup将多个值返回到一个单元格

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

Copy

3。然后保存并关闭此代码，返回到工作表，然后输入以下公式： =CONCATENATEIF($A:$A, E2, $C:$C, ", ") 放入要放置结果的特定空白单元格中，然后向下拖动填充手柄以在所需的一个单元格中获取所有对应的值，请参见屏幕截图：

Vlookup将所有没有重复的匹配值返回到一个单元格

要忽略返回的匹配值中的重复项，请使用以下代码。

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

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

VBA代码：Vlookup并将多个唯一匹配的值返回到一个单元格中

Function MultipleLookupNoRept(Lookupvalue As String, LookupRange As Range, ColumnNumber As Integer) Updateby Extendoffice Dim xDic As New Dictionary Dim xRows As Long Dim xStr As String Dim i As Long On Error Resume Next xRows = LookupRange.Rows.Count For i = 1 To xRows If LookupRange.Columns(1).Cells(i).Value = Lookupvalue Then xDic.Add LookupRange.Columns(ColumnNumber).Cells(i).Value, "" End If Next xStr = "" MultipleLookupNoRept = xStr If xDic.Count > 0 Then For i = 0 To xDic.Count - 1 xStr = xStr & xDic.Keys(i) & "," Next MultipleLookupNoRept = Left(xStr, Len(xStr) - 1) End If End Function

Copy

3。插入代码后，然后单击工具 > 参考资料 在打开 Microsoft Visual Basic应用程序 窗口，然后在弹出 参考– VBAProject 对话框，检查 Microsoft脚本运行时 在选项 可用参考 列表框，请参阅屏幕截图：

4。然后点击 OK 关闭对话框，保存并关闭代码窗口，返回到工作表，然后输入以下公式： =MultipleLookupNoRept(E2,$A:$C,3) into a blank cell where you want to output the result, and then drag the fill hanlde down to get all matching values, see screenshot:

请注意： 在上式中 A2：C11 是您要使用的数据范围， E2 是查找值，数字 3 是包含返回值的列号。

Vlookup通过有用的功能将多个值返回到一个单元格