Excel verwijdert tekens, woorden en cijfers uit tekenreeksen

Stel dat u een lange lijst met tekenreeksen hebt die tekens, cijfers of andere specifieke symbolen bevatten. In bepaalde gevallen moet u mogelijk enkele tekens verwijderen op basis van positie, zoals van rechts, links of in het midden van de tekstreeksen, of enkele ongewenste tekens of cijfers uit de lijst met reeksen verwijderen. Als u de oplossingen één voor één vindt, krijgt u hoofdpijn, deze tutorial verzamelt allerlei methoden voor het verwijderen van tekens, woorden of cijfers in Excel.

---

Verwijder tekens links, rechts of in het midden van de tekstreeksen

Het kan voor de meesten van ons een gebruikelijke taak zijn om enkele tekens links, rechts of in het midden van de tekstreeksen in Excel-werkbladen te verwijderen. In dit gedeelte worden enkele snelle en gemakkelijke trucs geïntroduceerd om deze taak op te lossen.

1.1 Verwijder de eerste n tekens uit tekstreeksen

Als u de eerste n tekens uit een lijst met tekstreeksen moet verwijderen, kunnen de volgende methoden u een plezier doen.

 Door formules te gebruiken

Normaal gesproken kunt u, om de tekens vanaf het begin van de tekenreeksen te verwijderen, de functie VERVANGEN of een combinatie van de functies RECHTS en LEN gebruiken.

REPLACE-functie om de eerste N-tekens te verwijderen:

• snaar: de tekenreeks waaruit u tekens wilt verwijderen;
• aantal_tekens: Het aantal tekens dat u wilt verwijderen.

Als u bijvoorbeeld de eerste 2 tekens uit de cellen wilt verwijderen, gebruikt u de onderstaande formule en sleept u vervolgens de vulgreep om de formule naar andere cellen te kopiëren, zie screenshot:

RECHTS- en LEN-functies om de eerste N tekens te verwijderen:

• snaar: de tekenreeks waaruit u tekens wilt verwijderen;
• aantal_tekens: Het aantal tekens dat u wilt verwijderen.

Om de eerste 2 tekens uit cellen te verwijderen, past u de volgende formule toe:

---

 Door de door de gebruiker gedefinieerde functie te gebruiken

Om de eerste n tekens uit cellen te verwijderen, kunt u ook een door de gebruiker gedefinieerde functie maken om deze taak op te lossen. Gelieve te doen met de volgende stappen:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder de eerste n tekens uit tekstreeksen

Function removeFirstx(rng As String, cnt As Long)
'Updateby Extendoffice
removeFirstx = Right(rng, Len(rng) - cnt)
End Function

3. Ga vervolgens terug naar het werkblad en voer deze formule in: = removeefirstx (A4,2) in een lege cel en sleep vervolgens de vulgreep naar beneden om de resultaten te krijgen zoals je nodig hebt, zie screenshot:

Note: In deze formule: A4 is de cel waaruit u tekens wilt verwijderen; Het nummer 2 geeft het aantal tekens aan dat u aan het begin van de tekstreeks wilt verwijderen.

---

1.2 Verwijder de laatste n tekens uit tekstreeksen

Om een ​​specifiek aantal tekens aan de rechterkant van tekstreeksen te verwijderen, kunt u ook een formule of een door de gebruiker gedefinieerde functie gebruiken.

 Door formule te gebruiken

Om de laatste n tekens uit de tekenreeksen te verwijderen, kunt u een formule gebruiken die is gebaseerd op de functies LEFT en LEN.

LINKS en LEN functies om de laatste N karakters te verwijderen:

• snaar: de tekenreeks waaruit u tekens wilt verwijderen;
• aantal_tekens: Het aantal tekens dat u wilt verwijderen.

Gebruik deze formule om 3 tekens aan het einde van de tekstreeksen te verwijderen en sleep vervolgens de vulgreep om de formule naar andere cellen te kopiëren, zie screenshot:

---

 Door de door de gebruiker gedefinieerde functie te gebruiken

Hier kan een door de gebruiker gedefinieerde functie u ook helpen om de laatste n tekens uit een lijst met cellen te verwijderen, doe dit als volgt:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder de laatste n tekens uit tekstreeksen

Function removeLastx(rng As String, cnt As Long)
'Updateby Extendoffice
removeLastx = Left(rng, Len(rng) - cnt)
End Function

3. Keer dan terug naar het werkblad en voer deze formule in: = removeelastx (A4,3) in een lege cel en sleep vervolgens de vulgreep naar beneden om de resultaten te krijgen zoals je nodig hebt, zie screenshot:

Note: In deze formule: A4 is de cel waaruit u tekens wilt verwijderen; Het nummer 3 geeft het aantal tekens aan dat u aan het einde van de tekstreeks wilt verwijderen.

---

1.3 Verwijder de eerste, laatste n tekens of bepaalde positietekens met behulp van een krachtige functie

Het kan voor u pijnlijk zijn om verschillende formules te onthouden, om tekens van links, rechts of een specifieke positie van de tekstreeksen te verwijderen, Kutools for Excel ondersteunt een krachtige functie - Verwijderen op positie. Met deze kleine tool kunt u deze taken met een paar klikken uitvoeren zonder formules te onthouden.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer de cellen waarvan u tekens wilt verwijderen en klik vervolgens op Kutools > Tekst > Verwijderen op positie, zie screenshot:

2. In de Verwijderen op positie dialoogvenster, voer dan de volgende bewerkingen uit:

2.1 Verwijder de eerste n tekens uit cellen:

• In Aantallen tekstvak, typt u het aantal tekens dat u uit tekenreeksen wilt verwijderen. In dit voorbeeld zal ik de eerste 2 tekens verwijderen.
• kies Van links optie Positie pagina.
• Dan klikken Ok or Solliciteer knop om het resultaat te krijgen zoals hieronder getoond screenshot.

2.2 Verwijder de laatste n tekens uit cellen:

• In Aantallen tekstvak, typt u het aantal tekens dat u uit tekenreeksen wilt verwijderen. In dit voorbeeld zal ik de laatste 3 tekens verwijderen.
• kies Van rechts optie Positie pagina.
• Dan klikken Ok or Solliciteer knop om het resultaat te krijgen zoals hieronder getoond screenshot.

2.3 Verwijder n tekens uit een specifieke positie van cellen:

Als u bijvoorbeeld een bepaald aantal tekens van een bepaalde positie van de tekenreeksen moet verwijderen, begint het verwijderen van 3 tekens vanaf het derde teken van de tekenreeks.

• In Aantallen tekstvak, typt u het aantal tekens dat u uit tekenreeksen wilt verwijderen. In dit voorbeeld zal ik 3 karakters van een bepaalde positie verwijderen.
• kies Specificeren en typ het nummer waarvan u de tekens wilt verwijderen in het tekstvak van de Positie sectie. Hier zal ik tekens uit het derde teken verwijderen.
• Dan klikken Ok or Solliciteer knop om het resultaat te krijgen zoals hieronder getoond screenshot.

Download en gratis proef Kutools voor Excel nu!

---

1.4 Verwijder zowel de eerste n als de laatste n tekens uit tekstreeksen met formule

Wanneer u enkele tekens aan beide zijden van tekstreeksen in Excel moet verwijderen, kunt u de MID- en LEN-functies combineren om een ​​formule te maken voor het afhandelen van deze taak.

• snaar: de tekenreeks waaruit u tekens wilt verwijderen;
• left_tekens: het aantal tekens dat van links moet worden verwijderd;
• juiste tekens: Het aantal tekens dat van rechts moet worden verwijderd.

U moet bijvoorbeeld de eerste 7 tekens en de laatste 5 tekens tegelijkertijd uit tekstreeksen verwijderen. Voer de volgende formule in een lege cel in:

Note: In deze formule: A4 is de cel waaruit u tekens wilt verwijderen; Het nummer 7 is het aantal tekens dat u aan de linkerkant wilt verwijderen; Het nummer 5 is het aantal tekens dat u aan de rechterkant wilt verwijderen.

En sleep vervolgens de vulgreep naar beneden naar waar u deze formule wilt toepassen, en u krijgt het resultaat zoals hieronder afgebeeld:

---

Verwijder ongewenste / speciale tekens uit tekstreeksen

Wanneer u gegevens van ergens anders naar Excel importeert, kunnen er veel speciale of ongewenste tekens in uw werkblad worden geplakt. Om deze ongewenste tekens zoals #@$%^&, spaties, cijfers, niet-numerieke cijfers, regeleinden, enz. te verwijderen, biedt deze sectie enkele nuttige methoden om u te helpen.

2.1 Verwijder enkele speciale tekens uit tekstreeksen

Als er enkele speciale tekens zoals %^&*() in de tekstreeksen zijn, kunt u de onderstaande drie trucs toepassen om dit type tekens te verwijderen.

 Verwijder verschillende speciale tekens uit tekstreeksen met de SUBSTITUTE-functie

Normaal gesproken kunt u in Excel verschillende SUBSTITUTE-functies nesten om elk specifiek teken door niets te vervangen, de generieke syntaxis is:

• tekenreeks_cel: de cel bevat de tekstreeks waaruit u speciale tekens wilt verwijderen;
• teken1, teken2, teken3: de ongewenste tekens die u wilt verwijderen.

Kopieer of voer nu de onderstaande formule in een lege cel in:

En sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen, en alle ongewenste tekens die u hebt opgegeven, worden in één keer verwijderd, zie screenshot:

Tips: Als er meer tekens zijn die u wilt verwijderen, hoeft u alleen maar meer SUBSTITUTE-functies in de formule te nesten.

---

 Verwijder meerdere speciale tekens uit tekstreeksen met de door de gebruiker gedefinieerde functie

De hierboven geneste SUBSTITUTE-functies werken goed als er weinig speciale tekens moeten worden verwijderd, maar als u tientallen tekens moet verwijderen, wordt de formule te lang en moeilijk te beheren. In dit geval kan de volgende door de gebruiker gedefinieerde functie u helpen deze taak snel en gemakkelijk te voltooien.

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder meerdere speciale tekens uit tekstreeksen

Function RemoveUnwantedChars(Str As String, xchars As String)
'Updateby Extendoffice
    For Index = 1 To Len(xchars)
        Str = Replace(Str, Mid(xchars, Index, 1), "")
    Next
    RemoveUnwantedChars = Str
End Function

3. Sluit vervolgens het codevenster en ga terug naar het werkblad, voer deze formule in =VerwijderOngewenste Tekens(A2, $D$2) in een lege cel waar het resultaat moet worden uitgevoerd en sleep vervolgens de vulgreep naar beneden om de gewenste resultaten te krijgen, zie screenshot:

Note: In de bovenstaande formule: A2 is de cel waaruit u tekens wilt verwijderen; $ D $ 2 bevat de speciale tekens die u wilt verwijderen (u kunt andere speciale tekens typen die u nodig hebt).

---

 Verwijder meerdere speciale tekens uit tekstreeksen met een geweldige functie

Als je hebt geïnstalleerd Kutools for Excel, Met Tekens verwijderen functie kunt u alle soorten tekens, zoals numerieke tekens, alfatekens, niet-afdrukbare tekens... uit een lijst met cellen verwijderen als u dat wilt.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het celbereik waaruit u speciale tekens wilt verwijderen en klik vervolgens op Kutools > Tekst > Tekens verwijderen, zie screenshot:

2. In de Tekens verwijderen dialoog venster:

• Check Eigen optie onder de Tekens verwijderen pagina.
• En voer vervolgens de speciale tekens in het tekstvak in dat u wilt verwijderen.
• Dan klikken Ok or Solliciteer om de door u opgegeven tekens in één keer te verwijderen. Zie schermafdruk:

Download en gratis proef Kutools voor Excel nu!

---

2.2 Verwijder alle cijfers uit tekstreeksen

Als je een lijst met tekstreeksen hebt die vermengd zijn met cijfers, letters en speciale tekens, en nu wil je gewoon alle cijfers verwijderen en andere tekens behouden. In dit gedeelte vindt u enkele handige manieren om u te helpen.

 Verwijder nummers uit tekstreeksen met de SUBSTITUTE-functie

In Excel kan de geneste SUBSTITUTE-functie helpen om alle getallen door niets te vervangen, dus u kunt de onderstaande formule gebruiken om alle getallen uit cellen te verwijderen:

Sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen en alle getallen worden verwijderd uit de lijst met tekstreeksen, zie screenshot:

---

 Verwijder nummers uit tekstreeksen met de TEXTJOIN-functie

Als je Excel 2019, 2021 of 365 hebt, kan de nieuwe TEXTJOIN-functie ook helpen om getallen uit tekstreeksen te verwijderen.

Kopieer de volgende formule naar een lege cel en druk vervolgens op de toetsen Ctrl + Shift + Enter om het eerste resultaat te krijgen:

En kopieer vervolgens de formule naar andere cellen hieronder waar u deze formule wilt toepassen, zie screenshot:

Note: Deze TEXTJOIN is alleen beschikbaar in Excel 2019, 2021 en Office 365.

---

 Verwijder nummers uit tekstreeksen met door de gebruiker gedefinieerde functie

Naast de bovenstaande twee formules, kan een door de gebruiker gedefinieerde functie u ook een plezier doen, doe dit alstublieft met de volgende stappen:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: cijfers uit tekstreeksen verwijderen

Function RemoveNumbers(Txt As String) As String
'Updateby Extendoffice
With CreateObject("VBScript.RegExp")
.Global = True
.Pattern = "[0-9]"
RemoveNumbers = .Replace(Txt, "")
End With
End Function

3. Sluit vervolgens het codevenster en verlaat het, ga terug naar het werkblad en voer deze formule in: = RemoveNumbers (A2) in een lege cel en sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen, zie screenshot:

---

 Verwijder nummers uit tekstreeksen met een handige optie

Als je moe bent van de ingewikkelde formules, laat me je nu een eenvoudig hulpmiddel tonen - Kutools for Excel's Tekens verwijderen. Met deze handige functie kunt u deze taak met slechts een paar klikken uitvoeren.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het cellenbereik waarvan u getallen wilt verwijderen en klik vervolgens op Kutools > Tekst > Tekens verwijderen.

2. In de Tekens verwijderen dialoogvenster, voer dan de volgende bewerkingen uit:

• Check Numerieke optie onder de Tekens verwijderen pagina.
• Dan klikken Ok or Solliciteer knop om de nummers onmiddellijk te verwijderen. Zie schermafdruk:

Download en gratis proef Kutools voor Excel nu!

---

2.3 Niet-numerieke tekens uit tekstreeksen verwijderen

Om alle niet-numerieke tekens te verwijderen en alleen de cijfers van tekstreeksen te behouden, wordt in dit gedeelte enkele manieren besproken om deze taak in Excel op te lossen.

 Verwijder niet-numerieke tekens uit tekenreeksen met formule in Excel 2016 en eerdere versies

Als u Excel 2016 of eerdere versies gebruikt, moet u een complexe formule toepassen om deze taak te bereiken, kopieer of voer de onderstaande formule in een lege cel in:

En kopieer vervolgens de formule naar andere cellen hieronder waar u deze formule wilt toepassen, zie screenshot:

Note: Als de getallen in een tekstreeks beginnen met 0, gaat de 0 verloren.

---

 Verwijder niet-numerieke tekens uit tekstreeksen met de functie TEXTJOIN in Excel 2019, 2021, 365

De bovenstaande formule is voor de meesten van ons misschien te moeilijk om te begrijpen. Als je Excel 2019, 2021 of 365 hebt, is er een handige formule die je kan helpen.

Kopieer of voer de volgende formule in een lege cel in en druk op Ctrl + Shift + Enter toetsen samen om het eerste juiste resultaat te krijgen:

Sleep vervolgens de vulgreep naar de cellen waar u deze formule gaat toepassen, en u krijgt het resultaat zoals hieronder afgebeeld:

Note: Met deze formule kunt u zien dat de voorloopnullen behouden blijven omdat de getallen als tekst worden geretourneerd.

---

 Verwijder niet-numerieke tekens uit tekstreeksen met door de gebruiker gedefinieerde functie

Natuurlijk kunt u ook uw eigen door de gebruiker gedefinieerde functie maken met een eenvoudigere syntaxis, doe dit als volgt:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder niet-numerieke tekens uit tekstreeksen

Function Removenonnumeric(str As String) As String
'Updateby Extendoffice
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[^0-9]"
        Removenonnumeric = .Replace(str, "")
    End With
End Function

3. Sluit vervolgens het codevenster en verlaat het, ga terug naar het werkblad en voer deze formule in: =Removenonnumeriek(A2) in een lege cel en sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen, alleen getallen worden geëxtraheerd zoals hieronder afgebeeld:

---

 Verwijder niet-numerieke tekens uit tekstreeksen met een eenvoudige functie

Als u niet-numerieke tekens in een celbereik rechtstreeks wilt verwijderen, Kutools for Excel's Tekens verwijderen hulpprogramma kan het gedaan krijgen met slechts een paar klikken.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het celbereik waaruit u niet-numerieke tekens wilt verwijderen en klik vervolgens op Kutools > Tekst > Tekens verwijderen.

2. In de Tekens verwijderen dialoogvenster, stel de volgende bewerkingen in:

• Check Niet numeriek optie onder de Tekens verwijderen pagina.
• Dan klikken Ok or Solliciteer om alle niet-numerieke tekens onmiddellijk te verwijderen. Zie schermafdruk:

Download en gratis proef Kutools voor Excel nu!

---

2.4 Scheid tekst en getallen van één cel in twee kolommen

Soms wilt u de tekst en cijfers uit tekstreeksen extraheren in twee gescheiden kolommen. Met behulp van de volgende methoden kunt u deze taak snel en gemakkelijk voltooien.

 Scheid tekst en getallen van één cel in twee kolommen met door de gebruiker gedefinieerde functie

Door de volgende door de gebruiker gedefinieerde functie te gebruiken, kunt u de tekst en cijfers tegelijk extraheren, doe dit met de onderstaande stappen:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: scheid tekst en cijfers van tekstreeksen in twee kolommen

Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

3. Sluit vervolgens het codevenster en verlaat het, ga terug naar het werkblad en voer deze formule in: = SplitText (A2, FALSE) in een lege cel en sleep vervolgens de vulgreep naar de cellen die u deze formule wilt vullen om alle tekst te krijgen, zie screenshot:

4. En ga dan door met het typen van deze formule: = SplitText (A2; TRUE) naar een andere cel en sleep de vulgreep naar de cellen die u met deze formule wilt vullen om de cijfers te krijgen, zie screenshot:

---

 Scheid tekst en getallen van één cel in twee kolommen met een eenvoudige functie

Als je Kutools for Excel, het is Gespleten cellen hulpprogramma kan u helpen om cellen in meerdere kolommen of rijen te splitsen op basis van eventuele scheidingstekens, opgegeven breedte of tekst en nummer.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het cellenbereik dat u wilt splitsen en klik vervolgens op Kutools > Samenvoegen en splitsen > Gespleten cellen, zie screenshot:

2. In de Gespleten cellen dialoogvenster, selecteer Splitsen in kolommen optie onder de Type sectie, en controleer dan Tekst en nummer van het Gesplitst door sectie, zie screenshot:

3. Dan klikken Ok knop, en nog een Gespleten cellen dialoogvenster verschijnt, selecteer een cel om de gescheiden tekst en getallen uit te voeren en klik vervolgens op de OK knop. Nu kunt u zien dat de tekst en getallen in geselecteerde cellen in twee kolommen tegelijk worden gesplitst, zoals hieronder getoonde demo:

Download en gratis proef Kutools voor Excel nu!

---

2.5 Tekens voor regeleinde uit tekstreeksen verwijderen

Een regeleinde is iets waarmee u meerdere regels in dezelfde cel in Excel kunt hebben. Soms, wanneer u gegevens van de website kopieert of uw celinhoud scheidt met Alt + Enter toetsen handmatig in, krijgt u de regeleinden of regelterugloop. In bepaalde gevallen wilt u misschien de regeleinden verwijderen om de celinhoud één regel te maken, zoals hieronder afgebeeld. Hier zal ik enkele manieren introduceren om deze taak in Excel op te lossen.

 Verwijder regeleindetekens uit tekstreeksen met de functie Zoeken en vervangen

In Excel kunt u de Zoeken en vervangen functie om regeleinden te verwijderen, gaat u als volgt te werk:

1. Selecteer het gegevensbereik waaruit u de regeleinden wilt verwijderen.

2. Dan klikken Home > Zoek en selecteer > vervangen (of druk op Ctrl + H sleutels) om naar de . te gaan Zoeken en vervangen dialoogvenster, zie screenshot:

3. In de pop-out Zoeken en vervangen dialoogvenster, voer dan de volgende bewerkingen uit:

• Plaats de cursor in het Zoeken naar veld en druk op Ctrl + J op het toetsenbord ziet u misschien niets, maar het regeleindeteken is ingevoegd.
• In het Vervangen door veld, laat dit veld leeg om alleen de regeleinden te verwijderen of druk op de ruimte bar eenmaal om de regeleinden te vervangen door spaties.

4. Dan klikken Alles vervangen knop, worden alle regeleinden in de geselecteerde cellen in één keer verwijderd of vervangen door spaties. Zie schermafdruk:

---

 Verwijder regeleindetekens uit tekstreeksen met de SUBSTITUTE-functie

U kunt ook een formule maken op basis van de SUBSTITUTE- en CHAR-functies om de regeleinden uit de tekstreeksen te verwijderen.

Pas de onderstaande formule toe om het resultaat te krijgen:

Tips: De SUBSTITUTE-functie zoekt en vervangt het CHAR(10)-teken dat het regeleinde-teken vertegenwoordigt met niets. Als u wilt dat het resultaat wordt gescheiden door een komma en een spatie, kunt u de onderstaande formule gebruiken:

---

 Verwijder regeleindetekens uit tekstreeksen met VBA-code

Als u vertrouwd bent met het gebruik van VBA-code, vindt u hier ook een code voor u, voer de volgende stappen uit:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: regeleinden uit tekstreeksen verwijderen

Sub RemoveCarriage()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = Replace(Rng.Value, Chr(10), "")
Next
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster, selecteer het bereik waarvan u de regeleinden wilt verwijderen, zie screenshot:

4. En klik dan OK knop, worden alle regeleinden verwijderd uit het geselecteerde gegevensbereik.

---

 Verwijder regeleindetekens uit tekstreeksen met een slimme optie

Hier Kutools for Excel's Tekens verwijderen functie kan u ook helpen om regeleinden gemakkelijk te verwijderen.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het celbereik waarvan u regeleinden wilt verwijderen en klik vervolgens op Kutools > Tekst > Tekens verwijderen.

2. In de Tekens verwijderen dialoogvenster, stel de volgende bewerkingen in:

• Check Non-printing optie onder de Tekens verwijderen pagina.
• Dan klikken Ok or Solliciteer om alle regeleinden uit het geselecteerde gegevensbereik te verwijderen. Zie schermafdruk:

Download en gratis proef Kutools voor Excel nu!

---

2.6 Verwijder spaties (vooraf, achteraan, extra of alle spaties) uit tekenreeksen

Het kopiëren en plakken van tekst van een externe bron naar een Excel-werkblad brengt vaak vervelende overgebleven witruimten met zich mee, het zal vervelend zijn om de voorloop-, volg- of andere extra spaties handmatig te verwijderen. Gelukkig biedt Excel enkele eenvoudige trucs om met deze taak om te gaan.

 Verwijder extra spaties (vooraf, achteraan, overtollig) uit tekstreeksen met de TRIM-functie

Om in Excel de voorloop-, volg- en extra spaties uit tekstreeksen te verwijderen, kan de eenvoudige TRIM-functie u helpen. Deze functie verwijdert alle spaties behalve enkele spaties tussen woorden.

Voer de onderstaande formule in een lege cel in:

En sleep vervolgens de vulgreep naar beneden om de formule voor andere cellen te kopiëren. Nu kun je zien dat alle voorloop-, volgspaties en extra spaties tussen de woorden in één keer uit de schermafbeelding worden verwijderd:

---

 Verwijder alle spaties uit tekenreeksen

Als u alle witruimten uit tekstreeksen wilt verwijderen, kunnen de volgende SUBSTITUTE-functie en Find & Replace-functie u een plezier doen.

Door de SUBSTITUTE-functie te gebruiken:

U kunt de SUBSTITUTE-functie gebruiken om alle spaties door niets te vervangen, pas de onderstaande formule toe in een lege cel:

Sleep vervolgens de vulgreep naar beneden om deze formule naar andere cellen te kopiëren die u nodig hebt, en alle spaties worden verwijderd zoals hieronder afgebeeld:

---

Door de functie Zoeken en vervangen te gebruiken

In feite is de Zoek en vervang functie in Excel kan ook helpen om alle spaties uit geselecteerde cellen te verwijderen, voer de volgende stappen uit:

1. Selecteer het gegevensbereik waaruit u alle spaties wilt verwijderen.

2. Dan klikken Home > Zoek en selecteer > vervangen (of druk op Ctrl + H toetsen) om naar de Zoeken en vervangen dialoogvenster, in het geopende Zoeken en vervangen dialoogvenster, voer de onderstaande bewerkingen uit:

• Media Spatiebalk in de Zoeken naar veld;
• In het Vervangen door veld, laat dit veld dan leeg.

3. En klik dan Alles vervangen knop, worden alle spaties in de geselecteerde cellen in één keer verwijderd. Zie schermafdruk:

---

 Verwijder allerlei soorten spaties uit tekstreeksen met een krachtige functie

Kutools for Excel heeft een krachtige functie - Ruimten verwijderen, met dit hulpprogramma kunt u niet alleen voorloopspaties, volgspaties, overtollige spaties, maar ook alle spaties uit geselecteerde bereiken in één dialoogvenster verwijderen, wat uw werkproductiviteit zal verbeteren.

Na het installeren van Kutools for Excel, doe dit als volgt:

1. Selecteer het gegevensbereik waaruit u spaties wilt verwijderen en klik vervolgens op Kutools > Tekst > Ruimten verwijderen. Zie screenshot:

2. In de Ruimten verwijderen dialoogvenster, selecteer een ruimtetype dat u wilt verwijderen uit de Ruimtes Type:

• Verwijder de voorloopspaties, selecteer a.u.b. de Toonaangevende ruimtes keuze;
• Verwijder de volgspaties, selecteer a.u.b. de Spaties achteraan keuze;
• Verwijder de voorloopspaties en de volgspaties tegelijk, selecteer a.u.b. de Leading & Trailing Spaties keuze;
• Verwijder alle extra spaties, selecteer a.u.b. de Alle overtollige spaties keuze;
• Verwijder alle spaties, selecteer a.u.b. de Alle ruimtes optie.

3. Dan klikken Ok or Solliciteer knop, krijgt u het gewenste resultaat.

Download en gratis proef Kutools voor Excel nu!

---

Verwijder tekens / tekst voor of na een specifiek teken

In deze sectie zal ik enkele bewerkingen introduceren voor het verwijderen van de tekst of tekens voor of na de eerste, laatste of nde keer dat een specifiek teken voorkomt.

3.1 Tekst verwijderen voor of na het eerste specifieke teken

Als je de tekst voor of na het eerste specifieke teken wilt verwijderen, zoals spatie, komma uit een lijst met tekstreeksen zoals hieronder afgebeeld, zal ik hier twee methoden voor je posten.

 Tekst verwijderen vóór het eerste specifieke teken met een formule

Om tekst of tekens vóór het eerste specifieke teken te verwijderen, kunt u een formule maken op basis van de functies RIGHT, LEN en FIND. De algemene syntaxis is:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van.

Als u bijvoorbeeld alles vóór de eerste komma uit de lijstreeksen wilt verwijderen, moet u de volgende formule toepassen in een lege cel en deze vervolgens naar de cellen slepen die u nodig hebt, zie screenshot:

Note:In de bovenstaande formule: A2 is de cel waaruit u tekst wilt verwijderen; , is het specifieke teken waarop u tekst wilt verwijderen, u kunt dit naar behoefte wijzigen in andere tekens.

---

 Tekst verwijderen na het eerste specifieke teken met een formule

Om alles na het eerste specifieke teken te verwijderen, kunt u de functies LEFT en FIND gebruiken om het resultaat te krijgen, de generieke syntaxis is:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van.

Voer nu de onderstaande formule in een lege cel in en sleep vervolgens de vulgreep naar andere cellen waar u deze formule wilt toepassen, en alle tekens na de eerste komma worden in één keer verwijderd, zie screenshot:

---

3.2 Tekst verwijderen voor of na het N-de voorkomen van een teken

Soms bevatten de tekenreeksen meerdere instanties van een specifiek scheidingsteken. Mogelijk wilt u alle tekens voor of na een specifieke instantie verwijderen, zoals de tweede, derde of vierde die u nodig heeft. Om met dit soort verwijdering om te gaan, kunt u de volgende trucs gebruiken:

 Tekst verwijderen vóór het N-de voorkomen van een teken met een formule

Om de tekst te verwijderen vóór het N-de voorkomen van een specifiek teken, kan de volgende formule u helpen, de generieke syntaxis is:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van;
• N: het voorkomen van het teken waarvoor tekst moet worden verwijderd.

Als u bijvoorbeeld alles vóór de tweede komma uit de tekstreeksen wilt verwijderen, moet u de onderstaande formule toepassen:

Note:In de bovenstaande formule: A2 is de cel waaruit u tekst wilt verwijderen; , is het specifieke teken waarop u tekst wilt verwijderen, u kunt dit naar behoefte wijzigen in andere tekens; 2 geeft de n-de komma aan waarvoor u tekst wilt verwijderen.

En sleep vervolgens de vulgreep om de formule naar andere cellen te kopiëren, zie screenshot:

---

 Tekst verwijderen na het N-de voorkomen van een teken met een formule

Om de tekst te verwijderen na het N-de voorkomen van een specifiek scheidingsteken, kunnen de functies LEFT, SUBSTITUTE en FIND u een plezier doen. De generieke syntaxis is:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van;
• N: het voorkomen van het teken waarna tekst moet worden verwijderd.

Zodra u de basissyntaxis begrijpt, kopieert u de onderstaande formule of voert u deze in een lege cel in:

Note:In de bovenstaande formule: A2 is de cel waaruit u tekst wilt verwijderen; , is het specifieke teken waarop u tekst wilt verwijderen, u kunt dit naar behoefte wijzigen in andere tekens; 2 geeft de n-de komma aan waarna u tekst wilt verwijderen.

Sleep vervolgens de vulgreep om de formule naar andere cellen te kopiëren en alle tekens na de tweede komma worden in één keer verwijderd, zie screenshot:

---

 Tekst verwijderen voor of na het N-de voorkomen van een teken met de door de gebruiker gedefinieerde functie

Zoals u kunt zien, kunt u de gevallen voor het verwijderen van tekst vóór of na het N-de voorkomen van een teken oplossen door de oorspronkelijke functies van Excel in verschillende combinaties te gebruiken. Het probleem is dat je deze lastige formules moet onthouden. In dit geval zal ik een door de gebruiker gedefinieerde functie maken om alle scenario's te dekken, doe als volgt:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: verwijder tekst voor of na het N-de voorkomen van een teken

Function RemoveTextOccurrence(Str As String, Delimiter As String, Occurrence As Integer, IsAfter As Boolean)
Dim xStr As String
Dim xStrLen, xF, xIntStart As Integer
xStr = Str
xStrLen = Len(xStr)
xIntStart = 1
For xF = 1 To Occurrence
xIntStart = InStr(xIntStart + 1, xStr, Delimiter, vbTextCompare)
If (xIntStart = 0) Or (xIntStart < 0) Then
    If IsAfter Then
    RemoveTextOccurrence = xStr
    Else
    RemoveTextOccurrence = ""
    End If
    Exit Function
End If
Next
If IsAfter Then
    RemoveTextOccurrence = Mid(Str, 1, xIntStart - 1)
Else
    RemoveTextOccurrence = Mid(Str, xIntStart + 1)
End If
End Function

3. Sluit vervolgens het codevenster en verlaat het, ga terug naar het werkblad en gebruik de volgende formules:

Tekst verwijderen voordat een komma voor de tweede keer voorkomt:

Tekst verwijderen na de tweede keer dat een komma voorkomt

---

3.3 Tekst verwijderen voor of na het laatste voorkomen van een teken

Als u alle tekst vóór of na het laatste specifieke teken moet verwijderen en alleen de subtekenreeksen na of voor het laatste specifieke teken wilt laten staan, zoals hieronder afgebeeld, zal deze sectie enkele formules bespreken om dit probleem op te lossen.

 Tekst verwijderen voordat een teken met een formule voor het laatst voorkomt

Om alle tekens te verwijderen voordat een teken voor het laatst voorkomt, is de generieke syntaxis:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van;

Als u nu de tekst moet verwijderen voordat een komma voor het laatst voorkomt, kopieer of voer dan de onderstaande formule in een lege cel in:

Note:In de bovenstaande formule: A2 is de cel waaruit u tekst wilt verwijderen; , is het specifieke teken waarop u tekst wilt verwijderen, u kunt dit naar behoefte wijzigen in andere tekens.

Sleep vervolgens de vulgreep om de formule naar andere cellen te kopiëren en alle tekens vóór de laatste komma worden verwijderd, zoals hieronder wordt weergegeven:

---

 Tekst verwijderen na het laatste voorkomen van een teken met formules

Als de celwaarden worden gescheiden door een variabel aantal scheidingstekens, wilt u nu alles verwijderen na de laatste instantie van dat scheidingsteken, de generieke syntaxis is:

• cel: de celverwijzing of tekenreeks waaruit u tekst wilt verwijderen;
• verkolen: Het specifieke scheidingsteken waarop u tekst wilt verwijderen op basis van;

Kopieer of voer de onderstaande formule in een lege cel in en sleep vervolgens de vulgreep naar beneden om andere resultaten te krijgen die u nodig hebt, zie screenshot:

Note:In de bovenstaande formule: A2 is de cel waaruit u tekst wilt verwijderen; , is het specifieke teken waarop u tekst wilt verwijderen, u kunt dit naar behoefte wijzigen in andere tekens.

---

3.4 Tekst tussen haakjes verwijderen

Als u een lijst met tekstreeksen hebt met een deel van de tekens tussen haakjes, wilt u nu misschien alle tekens tussen de haakjes verwijderen, inclusief de haakjes zelf, zoals hieronder afgebeeld. In deze sectie worden enkele trucs besproken om deze taak in Excel op te lossen.

 Tekst tussen haakjes verwijderen met de functie Zoeken en vervangen

In Excel kan de ingebouwde functie Zoeken en vervangen u helpen om alle teksten tussen haakjes te vinden en ze vervolgens door niets te vervangen. Doe alsjeblieft als volgt:

1. Selecteer de gegevenslijst waarvan u de teksten tussen de haakjes wilt verwijderen.

2. Dan klikken Home > Zoek en selecteer > vervangen (of druk op Ctrl + H toetsen) om naar het dialoogvenster Zoeken en vervangen te gaan, in de Zoeken en vervangen dialoogvenster voert u de volgende bewerkingen uit:

• In het Zoeken naar veld soort (*) in het tekstvak;
• In het Vervangen door veld, laat dit veld dan leeg.

3. Dan klikken Alles vervangen knop, worden alle tekens tussen de haakjes (inclusief de haakjes) in de geselecteerde cellen in één keer verwijderd. Zie schermafdruk:

TipsDe Zoeken en vervangen functie werkt ook voor twee of meer paar haakjes binnen de tekstreeksen.

---

 Tekst tussen haakjes verwijderen met formule

Naast de functie Zoeken en vervangen, kunt u ook een formule gebruiken om deze taak in Excel op te lossen, de generieke syntaxis is:

• tekst: de tekenreeks of celverwijzing waaruit u tekens wilt verwijderen.

Kopieer of voer nu de volgende formule in een lege cel in waar u het resultaat wilt krijgen:

Sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen, en alle teksten tussen de haakjes, inclusief de haakjes, worden in één keer verwijderd, zie screenshot:

Tips: Als er geen haakjes in de celwaarde staan, wordt er een fout weergegeven na het toepassen van de bovenstaande formule. Gebruik de onderstaande formule om de fout te negeren:

---

 Tekst tussen haakjes verwijderen met door gebruiker gedefinieerde functie

De bovenstaande formule werkt goed voor het verwijderen van tekst van één paar haakjes. Als u de teksten van meerdere paar haakjes binnen de tekstreeksen moet verwijderen, werkt de formule niet correct. Hier zal ik een eenvoudige door de gebruiker gedefinieerde functie maken om deze taak op te lossen.

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: tekst tussen haakjes verwijderen

Function remtxt(ByVal str As String) As String
'Updateby Extendoffice
  While InStr(str, "(") > 0 And InStr(str, ")") > InStr(str, "(")
    str = Left(str, InStr(str, "(") - 1) & Mid(str, InStr(str, ")") + 1)
  Wend
  remtxt = Trim(str)
End Function

3. Ga vervolgens terug naar het werkblad en voer deze formule in een lege cel in: = remtxt (A2), sleep vervolgens de vulgreep naar de cellen waar u deze formule wilt toepassen, alle teksten tussen alle haakjes, inclusief de haakjes, worden verwijderd zoals hieronder afgebeeld:

---

Woorden uit tekstreeksen verwijderen

In bepaalde gevallen wilt u misschien enkele woorden uit een lijst met cellen verwijderen, zoals het eerste of laatste woord, dubbele woorden uit een cel. Om dit soort verwijdering op te lossen, introduceert deze sectie enkele methoden voor u.

4.1 Eerste of laatste woord uit tekstreeks verwijderen

Om het eerste of laatste woord uit een lijst met tekstreeksen te verwijderen, kunnen de volgende formules u een plezier doen.

 Verwijder het eerste woord uit de tekenreeks met formule

Verwijder de eerste woorden uit een lijst met tekenreeksen, u kunt een eenvoudige formule maken op basis van de functies RIGHT, LEN en FIND, de generieke syntaxis is:

• tekst: de tekenreeks of celverwijzing waaruit u het eerste woord wilt verwijderen.

Voer nu de volgende formule in of kopieer deze naar een lege cel:

En sleep vervolgens de vulgreep naar beneden om de formule op andere cellen toe te passen, zie screenshot:

Tips: Als u de eerste N woorden uit de cellen wilt verwijderen, gebruik dan de onderstaande formule:

• tekst: de tekenreeks of celverwijzing waaruit u de eerste n woorden wilt verwijderen;
• N: Geeft aan hoeveel woorden u van het begin van de tekenreeks wilt verwijderen.

Als u bijvoorbeeld de eerste twee woorden uit cellen wilt verwijderen, kopieert u de onderstaande formule of voert u deze in een lege cel in om het gewenste resultaat te krijgen, zie screenshot:

---

  Verwijder laatste woord uit tekststring met formule

Om het laatste woord uit tekstreeksen te verwijderen, kunt u ook een formule gebruiken om deze taak op te lossen, de generieke syntaxis is:

• tekst: de tekenreeks of celverwijzing waaruit u het laatste woord wilt verwijderen;

Gebruik de onderstaande formule in een lege cel en sleep vervolgens de vulgreep naar beneden om de formule op andere cellen toe te passen, zie screenshot:

Tips: Om de laatste N woorden uit een lijst met cellen te verwijderen, is de algemene syntaxis:

• tekst: de tekenreeks of celverwijzing waaruit u de laatste n woorden wilt verwijderen;
• N: Geeft het aantal woorden aan dat u aan het einde van de tekenreeks wilt verwijderen.

Stel, om de laatste 3 woorden uit een lijst met cellen te verwijderen, gebruik dan de onderstaande formule om het resultaat te retourneren, zie screenshot:

---

4.2 Dubbele tekens of woorden in een cel verwijderen

Bij het verwijderen van dubbele waarden of rijen biedt Excel een aantal verschillende opties, maar als het gaat om het verwijderen van enkele dubbele tekens of woorden in een bepaalde cel, is er mogelijk geen goede ingebouwde functie om dit op te lossen. In dit geval zal deze sectie helpen bij het maken van enkele door de gebruiker gedefinieerde functies om deze puzzel op te lossen.

 Verwijder dubbele tekens in een cel met behulp van de door de gebruiker gedefinieerde functie

Als u meerdere exemplaren van hetzelfde teken in een cel hebt, kunt u de volgende door de gebruiker gedefinieerde functie gebruiken om de dubbele tekens in een cel te verwijderen en alleen de eerste exemplaren te behouden, zoals hieronder wordt weergegeven.

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: dubbele tekens in een cel verwijderen

Function RemoveDupeschars(pWorkRng As Range) As String
'Updateby Extendoffice
Dim xValue As String
Dim xChar As String
Dim xOutValue As String
Set xDic = CreateObject("Scripting.Dictionary")
xValue = pWorkRng.Value
For i = 1 To VBA.Len(xValue)
    xChar = VBA.Mid(xValue, i, 1)
    If xDic.Exists(xChar) Then
    Else
        xDic(xChar) = ""
        xOutValue = xOutValue & xChar
    End If
Next
RemoveDupeschars = xOutValue
End Function

3. Sluit vervolgens het codevenster, ga terug naar het werkblad en voer deze formule in =VerwijderDupeschars(A2) in een lege cel naast uw gegevens en sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen, zie screenshot:

Note: A2 is de gegevenscel waaruit u dubbele tekens wilt verwijderen.

Tip: De functie is hoofdlettergevoelig, dus kleine letters en hoofdletters worden als verschillende tekens behandeld.

---

 Verwijder dubbele woorden in een cel met behulp van de door de gebruiker gedefinieerde functie

Ervan uitgaande dat u dezelfde woorden of tekstreeksen in een cel hebt en dezelfde woorden uit de cel wilt verwijderen, zoals hieronder wordt weergegeven. U kunt de volgende door de gebruiker gedefinieerde functie gebruiken om deze taak in Excel op te lossen.

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: dubbele woorden in een cel verwijderen

Function RemoveDupeswords(txt As String, Optional delim As String = " ") As String
'Updateby Extendoffice
    Dim x
    With CreateObject("Scripting.Dictionary")
        .CompareMode = vbTextCompare
        For Each x In Split(txt, delim)
            If Trim(x) <> "" And Not .exists(Trim(x)) Then .Add Trim(x), Nothing
        Next
        If .Count > 0 Then RemoveDupeswords = Join(.keys, delim)
    End With
End Function

3. Sluit vervolgens het codevenster, keer terug naar het werkblad en voer deze formule in =Verwijder dubbele woorden(A2,", ") in een lege cel naast uw gegevens en sleep vervolgens de vulgreep naar de cellen waarop u deze formule wilt toepassen, zie screenshot:

Note: A2 is de cel waaruit u de dubbele woorden wilt verwijderen, en de komma en spatie (, ) zijn de scheidingstekens om de tekenreeksen van elkaar te scheiden, u kunt ze naar wens wijzigen in andere scheidingstekens.

Tip: Deze functie is niet hoofdlettergevoelig, kleine letters en hoofdletters worden als dezelfde tekens behandeld.

---

4.3 Tekstreeks bijsnijden tot N woorden

Als u een lange tekenreeks in een cel hebt, wilt u soms de tekenreeks inkorten tot een bepaald aantal woorden, wat betekent dat u alleen de eerste n woorden bewaart en de rest weglaat. In dit gedeelte worden enkele trucs besproken om u te helpen deze taak in Excel te bereiken.

 Trim tekstreeks naar N woorden met formule

Om een ​​tekenreeks in te korten tot N woorden, kunt u een formule maken op basis van de functies LEFT, FIND en SUBSTITUTE. De algemene syntaxis is:

• tekst: de tekstreeks of celverwijzing die u wilt inkorten;
• N: Het aantal woorden dat u wilt behouden vanaf de linkerkant van de gegeven tekenreeks.

Om deze taak uit te voeren, kopieert u de onderstaande formule of voert u deze in een lege cel in:

En sleep vervolgens de vulgreep naar beneden om deze formule op andere cellen toe te passen, zie screenshot:

---

 Tekstreeks bijsnijden tot N woorden met door gebruiker gedefinieerde functie

Behalve de bovenstaande formule, kunt u ook een door de gebruiker gedefinieerde functie maken om deze taak op te lossen, doe dit als volgt:

1. Houd de Alt + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen plak de volgende code in het modulevenster.

VBA-code: tekstreeks bijsnijden tot N woorden

Function GetNWords(StrWords As String, Num_of_Words As Integer) As String
'Updateby Extendoffice
Dim xArr
Dim xRes As String
Dim xF As Integer
xStr = StrWords
If (Num_of_Words < 1) Then
    GetNWords = ""
    Exit Function
End If
xArr = Split(xStr, " ")
xRes = ""
On Error Resume Next
For xF = 0 To UBound(xArr)
    If Trim(xArr(xF)) <> "" Then
    Num_of_Words = Num_of_Words - 1
        If xRes = "" Then
            xRes = Trim(xArr(xF))
        Else
            xRes = xRes & " " & Trim(xArr(xF))
        End If
    End If
    If Num_of_Words = 0 Then Exit For
Next
If Num_of_Words = 0 Then
    GetNWords = xRes & "..."
Else
    GetNWords = xRes & "..."
End If
End Function

3. Sluit vervolgens het codevenster en sluit het af, ga terug naar het werkblad en voer deze formule in: =GetNWoorden(A2,B2) in een lege cel en sleep vervolgens de vulgreep naar beneden om deze formule op andere cellen toe te passen, alleen het eerste specifieke aantal woorden wordt bewaard zoals hieronder afgebeeld: