Hoe extrahereer ik tekst vóór of na de tweede spatie of komma in Excel?
Bij het werken met tekstgegevens in Excel komt u vaak strings tegen die meerdere spaties, komma’s of andere scheidingstekens bevatten. Hoewel de functie Tekst naar kolommen in Excel de inhoud van een cel kan splitsen in afzonderlijke kolommen op basis van een gekozen scheidingsteken, zijn er situaties waarin u een specifiekere oplossing nodig heeft—bijvoorbeeld om alles vóór of na de tweede spatie of komma in een cel te extraheren. Dit artikel beschrijft verschillende praktische methoden om dit te bereiken: formules die gericht zijn op tekst vóór of na de tweede spatie of komma, robuuste oplossingen met VBA-macro’s voor automatisering of grotere datasets, en veelzijdige opties met Power Query voor geavanceerde gegevensverwerking.
Tekst extraheren vóór de tweede spatie of komma met formule
Tekst extraheren na de tweede spatie of komma met formule
Tekst extraheren vóór of na het tweede scheidingsteken (spatie/komma) met VBA-code
Tekst extraheren vóór de tweede spatie of komma met formule
Wilt u het deel van een cel isoleren dat vóór de tweede spatie staat? Gebruik dan een handige combinatie van Excel-functies.
1. Voer de volgende formule in een lege cel in waar u het resultaat wilt weergeven (bijvoorbeeld cel)C2):
=IF(ISERROR(FIND(" ",A2,FIND(" ",A2,1)+1)),A2,LEFT(A2,FIND(" ",A2,FIND(" ",A2,1)+1)))2. Druk op Enter. Gebruik vervolgens de vulgreep om de formule naar beneden te slepen voor alle rijen die u wilt verwerken. Het resultaat toont alle tekst vóór de tweede spatie in elke betreffende rij—zie de schermafbeelding hieronder:
Tip:Als u tekst wilt extraheren vóór de tweede komma of een ander scheidingsteken, vervangt u het spatieteken ()" ") in de formule door het gewenste scheidingsteken. Bijvoorbeeld, voor een komma:
=IF(ISERROR(FIND(",",A2,FIND(",",A2,1)+1)),A2,LEFT(A2,FIND(",",A2,FIND(",",A2,1)+1)))Deze aanpak is snel en efficiënt voor eenmalige extracties of bij matig grote datasets. Als de tekst echter sterk onregelmatig is of het aantal scheidingstekens per rij sterk varieert, kunnen aanvullende aanpassingen aan de formule nodig zijn. Let ook op extra spaties of Lege cellen, die de resultaten kunnen beïnvloeden. Controleer de uitvoer altijd zorgvuldig bij gebruik op kritieke gegevens.
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Tekst extraheren na de tweede spatie of komma met formule
Om tekst te extraheren die na het tweede spatie-scheidingsteken in een cel staat, combineert u de functies DEELTEKST en VIND.SPEC.
1. Voer de volgende formule in de doelcel in (bijvoorbeeld D2):
=MID(A2, FIND(" ", A2, FIND(" ", A2)+1)+1,256)2. Druk op Enter. Sleep de vulgreep naar beneden voor alle rijen waarvoor u gegevens wilt extraheren. Zo wordt alles na de tweede spatie in elke rij weergegeven, zoals in de schermafbeelding te zien is:
Tip: Om tekst te extraheren na de tweede komma of een ander scheidingsteken, vervangt u het spatieteken in de formule door het gewenste scheidingsteken. Voor een komma ziet de formule er als volgt uit:
=MID(A2, FIND(",", A2, FIND(",", A2)+1)+1,256)Tekst extraheren vóór of na het tweede scheidingsteken (spatie/komma) met VBA-code
Voor grotere datasets, herhaalde extracties of automatiseringsscenario’s is een VBA-macro een effectieve oplossing. Met VBA kunt u tekst extraheren vóór of na de tweede spatie, komma of een ander scheidingsteken — wat de efficiëntie aanzienlijk verhoogt bij het werken met uiteenlopende gegevensstructuren of wanneer een herhaalbare routine vereist is.
1. Selecteer Ontwikkelaar > Visual Basic. Klik in het venster dat verschijnt ()Microsoft Visual Basic for Applications) op Invoegen > Module en voer de volgende code in het modulevenster in:
Sub ExtractTextSecondDelimiter()
Dim rng As Range
Dim cell As Range
Dim sep As String
Dim direction As String
Dim arr As Variant
Dim result As String
Dim pos1 As Long
Dim pos2 As Long
Dim xTitleId As String
Dim outputCell As Range
Dim i As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set rng = Application.InputBox("Select text range to extract from", xTitleId, rng.Address, Type:=8)
If rng Is Nothing Then Exit Sub
sep = Application.InputBox("Enter delimiter (e.g. space or comma)", xTitleId, " ", Type:=2)
If sep = "" Then Exit Sub
direction = Application.InputBox("Type 'before' for text before, 'after' for text after the 2nd delimiter", xTitleId, "before", Type:=2)
If direction = "" Then Exit Sub
Set outputCell = Application.InputBox("Select the first cell to output the result", xTitleId, Type:=8)
If outputCell Is Nothing Then Exit Sub
Application.ScreenUpdating = False
i = 0
For Each cell In rng
If Not IsEmpty(cell.Value) Then
pos1 = InStr(1, cell.Value, sep)
If pos1 > 0 Then
pos2 = InStr(pos1 + 1, cell.Value, sep)
If pos2 > 0 Then
If LCase(direction) = "before" Then
result = Left(cell.Value, pos2 - 1)
ElseIf LCase(direction) = "after" Then
result = Mid(cell.Value, pos2 + Len(sep))
Else
result = cell.Value
End If
Else
result = cell.Value
End If
Else
result = cell.Value
End If
outputCell.Offset(i, 0).Value = result
End If
i = i + 1
Next
Application.ScreenUpdating = True
MsgBox "Extraction completed.", vbInformation, xTitleId
End Sub
2. Nadat u de code hebt geplakt, klikt u op de knop 
Uitvoeren of drukt u op F5 om de macro uit te voeren. Er verschijnt een dialoogvenster waarin u uw gegevensbereik selecteert, het scheidingsteken invoert, aangeeft of u de tekst „vóór” of „na” de tweede keer wilt, en tenslotte een cel kiest om het resultaat weer te geven. De macro plaatst het geëxtraheerde resultaat in de opgegeven cel.
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