Hoe zoekt u een waarde op en laat u alle overeenkomende resultaten in Excel retourneren?
In deze handleiding wordt uitgelegd hoe u in Excel een waarde opzoekt en meerdere overeenkomende waarden retourneert, zoals te zien is in de onderstaande schermafbeeldingen:
Zoekwaarde met matrixformule meerdere overeenkomende waarden laten retourneren
Zoekwaarde met filter meerdere overeenkomende waarden laten retourneren
Zoekwaarde met een gedefinieerde functie meerdere overeenkomende waarden laten retourneren
Zoekwaarde met matrixformule meerdere overeenkomende waarden laten retourneren
Hier is een uitgebreide matrixformule die u helpt bij het opzoeken van een waarde en het retourneren van meerdere overeenkomende resultaten.
1. Voer de waarde die u wilt opzoeken in een lege cel in. Zie de schermafbeelding:
2. Typ in de aangrenzende cel deze formule =ALS(FOUT(INDEX($A$1:$B$7,KLEINSTE(ALS($A$1:$A$7=$D$4,RIJ($A$1:$A$7)),RIJ(1:1)),2)),„",)
INDEX($A$1:$B$7,KLEINSTE(ALS($A$1:$A$7=$D$4,RIJ($A$1:$A$7)),RIJ(1:1)),2))erin en druk tegelijkertijd op Shift + Ctrl + Enteren sleep daarna de Automatisch aanvullen-greep omlaag totdat de eerste lege cel verschijnt. Zie schermafbeelding:
Opmerking: In de bovenstaande formule geeft $A$1:$B$7 het gegevensbereik aan, staat $A$1:$A$7 voor het kolombereik waarin u de op te zoeken waarde zoekt, verwijst $D$4 naar de cel waarin u in stap 1 de opzoekwaarde invoert, en geeft het getal 2 aan dat de overeenkomende waarden in de tweede kolom van het gegevensbereik worden gezocht.
Zoekwaarde met filter meerdere overeenkomende waarden laten retourneren
In Excel kunt u dit probleem ook eenvoudig oplossen met de filterfunctie.
1. Selecteer het kolombereik waarin u een waarde wilt opzoeken en klik op Gegevens > Filter. Zie de schermafbeelding:
2. Klik vervolgens op de pijlknop in de eerste cel van uw geselecteerde bereik en vink in de keuzelijst alleen de waarde aan die u wilt opzoeken. Zie schermafbeelding:
3. Klik op OK, en u ziet nu dat alleen de opzoekwaarde en de bijbehorende waarden worden gefilterd.
Zoekwaarde met een gedefinieerde functie meerdere overeenkomende waarden laten retourneren
Bent u geïnteresseerd in gedefinieerde functies? Dan kunt u dit probleem ook oplossen met een gedefinieerde functie.
1. Druk op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Module > Invoegen om een Module-venster in te voegen en kopieer de onderstaande VBA-code naar dit venster.
VBA: Laat meerdere overeenkomende waarden retourneren voor een zoekwaarde.
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. Sluit dit venster en typ de volgende formule in een cel:=MyVlookup(A10;$A$2:$B$7;2) (A10 is de opzoekwaarde, $A$2:$B$7 het gegevensbereik en 2 het kolomindexnummer). Druk op Shift + Ctrl + Enter en sleep de vulgreep omlaag. Plaats de cursor in de formulebalk en druk opnieuw op Shift + Ctrl + Enter.
Tip: Als u de waarden horizontaal wilt ophalen, typt u deze formule:=MyVlookup(A10, $A$2:$B$7, 2, „h").
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins