Hoe alle gedeeltelijke overeenkomsten in Excel extraheren?

Als u alle overeenkomsten die een specifiek trefwoord uit een kolom bevatten, wilt extraheren en ze in een kolom of in een cel wilt weergeven, gescheiden door een scheidingsteken, zoals onderstaand screenshot, hoe kunt u deze taak dan in Excel oplossen?

Extraheer alle gedeeltelijke overeenkomsten verticaal met formule

Extraheer alle gedeeltelijke overeenkomsten in een enkele cel met door de gebruiker gedefinieerde functie

---

Extraheer alle gedeeltelijke overeenkomsten verticaal met formule

Om alle overeenkomsten verticaal in een kolom te extraheren op basis van een gedeeltelijke tekst, kan de volgende matrixformule u een plezier doen:

Step1: Kopieer en plak de onderstaande formule in een lege cel waar u het resultaat wilt plaatsen:

Opmerking:: In de bovenstaande formule, A2: A14 is dat de cellen het sleutelwoord kunnen bevatten waarvan u overeenkomsten wilt retourneren, C2 bevat het sleutelwoord, E1 is de cel boven de formule.

Step2: Druk vervolgens op Ctrl + Shift + Enter toetsen tegelijkertijd in om het eerste resultaat te krijgen en sleep vervolgens de vulgreep naar beneden om alle overeenkomsten te krijgen totdat de foutwaarde verschijnt. Verwijder ten slotte de foutwaarden, zie screenshot:

---

Extraheer alle gedeeltelijke overeenkomsten in een enkele cel met door de gebruiker gedefinieerde functie

Als u alle overeenkomsten in een enkele cel moet extraheren en gescheiden door een specifiek scheidingsteken, is er misschien geen formule die dit kan oplossen. Hier moet u de onderstaande door de gebruiker gedefinieerde functie toepassen:

Step1: Druk op Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

Step2: In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module, kopieer dan de volgende code in de Module.

VBA-code: extraheer alle gedeeltelijke overeenkomsten in een enkele cel

Function ExtractPartMatch(rngInput As Range, rngSource As Range, Optional sDelimiter As String)
'Updateby ExtendOffice
Dim rng As Range
If sDelimiter = "" Then sDelimiter = ", "
For Each rng In rngSource
    If InStr(1, rng.Value, rngInput.Value, vbTextCompare) > 0 Then ExtractPartMatch = ExtractPartMatch & sDelimiter & rng.Value
Next
If Len(ExtractPartMatch) > 0 Then ExtractPartMatch = Mid(ExtractPartMatch, 2, Len(ExtractPartMatch))
End Function

Step3: Ga na het plakken van de code terug naar het werkblad waar u het resultaat wilt vinden en voer vervolgens deze formule in: =ExtractPartMatch(C2,$A$2:$A$14)en druk vervolgens op Enter sleutel om het resultaat te krijgen zoals hieronder getoond screenshot: