如何在Excel中查找值返回多个对应的值？

本教程讨论的是在Excel中查找返回一个对应值的值，如以下屏幕截图所示：

查找值使用数组公式返回多个对应的值

查找值使用过滤器返回多个对应的值

查找值使用定义的函数返回多个对应的值

查找值使用数组公式返回多个对应的值

这是一个长数组公式，可以帮助您查找一个值并返回多个对应的值。

1.在空白单元格中输入要查找的值。 看截图：

2.在相邻的单元格中，键入此公式 =IF(ISERROR(INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$D$4,ROW($A$1:$A$7)),ROW(1:1)),2)),"",
INDEX($A$1:$B$7,SMALL(IF($A$1:$A$7=$D$4,ROW($A$1:$A$7)),ROW(1:1)),2)) 进去，然后按 Shift + Ctrl + 输入 键，然后将 自动填充 填充单元格，直到第一个空白单元格出来。 看截图：

注意：在上面的公式中，$ A $ 1：$ B $ 7表示范围数据，$ A $ 1：$ A $ 7表示您要在其中查找特定值的列范围，$ D $ 4表示您键入查找的单元格步骤1、2中的value表示在第二列中找到相应的值。

查找值使用过滤器返回多个对应的值

在Excel中，您还可以使用“筛选器”功能来解决此问题。

1.选择要查找值的列范围，然后单击 时间 > 筛选。 看截图：

2.然后单击所选范围的第一个单元格中的箭头按钮，并仅在下拉列表中检查要查找的值。 看截图：

3。 点击 OK，现在您只看到查找值及其对应的值被过滤掉了。

查找值使用定义的函数返回多个对应的值

如果您对定义的功能感兴趣，也可以使用定义的功能解决问题。

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

2。 点击 模块 > 插页 插入一个 模块 窗口，然后将下面的VBA复制到该窗口中。

VBA：查找值返回多个相应的值。

Function MyVlookup(pWorkRng As Range, pRng As Range, pColumnIndex As Integer, Optional pType As String = "v")
'Updateby20140827
Dim xRow As Single
Dim xCol As Single
Dim arr() As Variant
ReDim arr(0)
For i = 1 To pRng.Rows.Count
    If pWorkRng = pRng.Cells(i, 1) Then
        arr(UBound(arr)) = pRng.Cells(i, pColumnIndex)
        ReDim Preserve arr(UBound(arr) + 1)
    End If
Next
If pType = "h" Then
    xCol = Range(Application.Caller.Address).Columns.Count
    For i = UBound(arr) To xCol
        arr(UBound(arr)) = ""
        ReDim Preserve arr(UBound(arr) + 1)
    Next
    ReDim Preserve arr(UBound(arr) - 1)
    MyVlookup = arr
Else
xRow = Range(Application.Caller.Address).Rows.Count
For i = UBound(arr) To xRow
    arr(UBound(arr)) = ""
    ReDim Preserve arr(UBound(arr) + 1)
Next
ReDim Preserve arr(UBound(arr) - 1)
MyVlookup = Application.WorksheetFunction.Transpose(arr)
End If
End Function

3.关闭窗口，然后在单元格中键入此公式 = MyVlookup（A10，$ A $ 2：$ B $ 7,2） （A10表示查找值，$ A $ 2：$ B $ 7表示数据范围，2表示列索引号）。 然后按 Shift + Ctrl + 输入 键。 然后将填充手柄向下拖动到单元格中，将光标置于 配方栏，然后按 Shift + Ctrl + 输入 一次。

Tips:：如果要返回水平单元格中的值，可以键入此公式 = MyVlookup（A10，$ A $ 2：$ B $ 7，2，“ h”）.