Hvordan udtrækkes alle delvise matches i Excel?

Hvis du vil udtrække alle matches, der indeholder et specifikt nøgleord, fra en kolonne og liste dem i en kolonne eller i en celle adskilt af et afgrænsningstegn som vist nedenfor, hvordan kunne du løse denne opgave i Excel?

Udtræk alle delvise matches lodret med formel

Udtræk alle partielle matchninger i en enkelt celle med brugerdefineret funktion

---

Udtræk alle delvise matches lodret med formel

For at udtrække alle matches lodret i en kolonne baseret på en delvis tekst, kan følgende matrixformel gøre dig en tjeneste:

Step1: Kopier og indsæt venligst nedenstående formel i en tom celle, hvor du vil placere resultatet:

Bemærk: I ovenstående formel A2: A14 er cellerne kan indeholde det nøgleord, som du vil returnere matches fra, C2 indeholder nøgleordet, E1 er cellen over formlen.

Step2: Tryk derefter på Ctrl + Skift + Enter tasterne samtidigt for at få det første resultat, og træk derefter udfyldningshåndtaget ned for at få alle matches, indtil fejlværdien vises. Slet endelig fejlværdierne, se skærmbillede:

---

Udtræk alle partielle matchninger i en enkelt celle med brugerdefineret funktion

Hvis du har brug for at udtrække alle matchene i en enkelt celle og adskilt af en specifik afgrænsning, er der måske ingen formel, der kan løse det. Her skal du anvende nedenstående brugerdefinerede funktion:

Step1: Tryk på Alt + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

Step2: I Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, og kopier derefter følgende kode ind i modulet.

VBA-kode: Udtræk alle partielle matches i en enkelt celle

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: Når du har indsat koden, skal du gå tilbage til arbejdsarket, hvor du vil finde resultatet, og derefter indtaste denne formel: =ExtractPartMatch(C2,$A$2:$A$14), og tryk derefter på Indtast nøgle for at få resultatet som vist nedenstående skærmbillede: