Ga naar hoofdinhoud

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:

=INDEX($A$2:$A$14,SMALL(IF(ISNUMBER((SEARCH($C$2,$A$2:$A$14))),MATCH(ROW($A$2:$A$14),ROW($A$2:$A$14)), ""),ROWS($E$1:E1)),COLUMNS($E$1:E1))

Note: 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:

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations