Hvordan opslagsværdi returnerer flere tilsvarende værdier i Excel?

Denne vejledning taler om at slå en værdi tilbage flere tilsvarende værdier i Excel som vist som nedenfor skærmbilleder:

Opslagsværdi returnerer flere tilsvarende værdier med matrixformel

Opslagsværdi returnerer flere tilsvarende værdier med Filter

Opslagsværdi returnerer flere tilsvarende værdier med Defined Function

Opslagsværdi returnerer flere tilsvarende værdier med matrixformel

Her er en lang formelformel, der kan give en hånd i at slå op på en værdi og returnere flere tilsvarende værdier.

1. Indtast den værdi, du vil slå op i en tom celle. Se skærmbillede:

2. Skriv denne formel i den tilstødende celle =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)) ind i det, og tryk på Skift + Ctrl + Enter tasterne sammen, og træk derefter Automatisk udfyldning at udfylde cellerne, indtil den første tomme celle kommer ud. Se skærmbillede:

Bemærk: I ovenstående formel angiver $ A $ 1: $ B $ 7 områdedataene, $ A $ 1: $ A $ 7 står for kolonneområdet, hvor dit opslag den bestemte værdi i, $ D $ 4 angiver den celle, du skriver opslag værdi i trin 1, 2 angiver at finde de tilsvarende værdier i anden kolonne.

Opslagsværdi returnerer flere tilsvarende værdier med Filter

I Excel kan du også bruge filterfunktionen til at løse dette problem.

1. Vælg det kolonneområde, du vil slå op på værdien, og klik på data > filtre. Se skærmbillede:

2. Klik derefter på pileknappen i den første celle i det valgte område, og kontroller kun den værdi, du vil slå op i rullelisten. Se skærmbillede:

3. klik OK, nu ser du kun opslagsværdien og dens tilsvarende værdier er filtreret ud.

Opslagsværdi returnerer flere tilsvarende værdier med Defined Function

Hvis du er interesseret i Defined Function, kan du også løse problemet med Defined Function.

1. Trykke Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. klik Moduler > indsatte at indsætte en Moduler vindue, og kopier nedenstående VBA til vinduet.

VBA: Opslagsværdi returnerer flere tilsvarende værdier.

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. Luk vinduet, og skriv denne formel i en celle = MyVlookup (A10, $ A $ 2: $ B $ 7,2) (A10 angiver opslagsværdi, $ A $ 2: $ B $ 7 angiver dataområdet, 2 angiver kolonneindeksnummeret). Og tryk Skift + Ctrl + Enter nøgler. Træk derefter fyldhåndtaget ned i cellerne, sæt markøren i Formel Bar, og tryk på Skift + Ctrl + Enter igen.

Tip: Hvis du vil returnere værdierne i vandrette celler, kan du skrive denne formel = MyVlookup (A10, $ A $ 2: $ B $ 7, 2, "h").