Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe vervang je meerdere spaties door één spatie uit cellen in Excel?

doc vervang meerdere spaties 1

Stel dat ik een lijst met tekstreeksen heb die meerdere spaties bevat, nu moet ik deze spaties vervangen door een enkele spatie tussen de tekstreeksen om de woorden te scheiden zoals in het volgende screenshot. Hoe kan ik de meerdere spaties tegelijk vervangen door een enkele zonder ze een voor een te verwijderen?

Vervang meerdere spaties door één spatie door de formule te gebruiken

Vervang meerdere spaties door één spatie door VBA-code te gebruiken

Vervang meerdere spaties door één spatie door Kutools voor Excel te gebruiken


Vervang meerdere spaties door één spatie door de formule te gebruiken

In Excel werkt de normale functie Zoeken en vervangen mogelijk niet goed voor ons om dit probleem op te lossen, dus we kunnen een eenvoudige formule toepassen om ermee om te gaan. Doe alstublieft als volgt:

1. Voer deze formule in: = TRIM (VERVANGEN (A2, CHAR (32), "")) in een lege cel naast je celwaarde, zie screenshot:

doc vervang meerdere spaties 2

2. Druk vervolgens op Enter toets om het resultaat te krijgen, en selecteer cel B2, sleep vervolgens de vulgreep naar de cellen in het bereik waarop u deze formule wilt toepassen, en alle extra spaties zijn verwijderd uit de tekstreeksen en er blijft slechts één spatie tussen de tekst. Zie screenshot:

doc vervang meerdere spaties 3


Vervang meerdere spaties door één spatie door VBA-code te gebruiken

Als je geïnteresseerd bent in de VBA-code, kan ik een code voor je maken om meerdere spaties door één te vervangen, doe dit als volgt:

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

2. Dan klikken Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: vervang meerdere spaties door een enkele spatie

Sub replace_multiplespaces()
'Updateby Extendoffice
Dim x As Range
Dim Workx As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set Workx = Application.Selection
Set Workx = Application.InputBox("Range", xTitleId, Workx.Address, Type:=8)
    For Each x In Workx
        x = WorksheetFunction.Trim(x)
    Next x
End Sub

3. Druk vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren het gegevensbereik te selecteren waarvan u de extra spaties wilt verwijderen, zie screenshot:

doc vervang meerdere spaties 4

4. En klik vervolgens op OK knop, zijn alle overtollige spaties vervangen door een enkele spatie tussen de tekst.


Vervang meerdere spaties door één spatie door Kutools voor Excel te gebruiken

Als u andere typen spaties wilt verwijderen, zoals het verwijderen van de voorloopspaties, volgspaties, alle spaties van de tekst, zal ik een krachtig hulpmiddel aanbevelen -Kutools voor Excel, met Ruimten verwijderen hulpprogramma kunt u alle spaties naar behoefte verwijderen, zoals voorloopspaties, volgspaties, alle spaties ...

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer het gegevensbereik waarvan u de extra spaties wilt verwijderen.

2. Klikken Kutools > Tekst > Ruimten verwijderen, zie screenshot:

3. In de Ruimten verwijderen dialoogvenster, kies Alle overtollige spaties van de Ruimtes Type sectie, en u kunt het resultaat bekijken van de Voorbeschouwing paneel, zie screenshot:

doc vervang meerdere spaties 6

4. En klik vervolgens op Ok or Toepassen knop, zijn alle extra spaties uit de cel verwijderd en laat slechts één spatie tussen de tekst over.

Klik om meer te weten over deze functie Ruimten verwijderen.

Klik om Kutools voor Excel en nu gratis uit te proberen!


Demo: vervang meerdere spaties door één spatie door Kutools voor Excel te gebruiken

Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. Download en probeer nu gratis!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alan Elston · 4 years ago
    Hi
    Thanks for a useful Blog. It helped me get the answer I was looking for.
    _................

    I was just wondering if this is acceptable and correct for removing Replace Multiple Spaces With Single Space From Cells:

    Taking your example,

    Formal to be dragged down:
    =Trim(A2)
    ( I do not understand why you have SUBSTITUTE(A2,CHAR(32)," ") instead of just A2 ??? )
    It appear to give the correct results.

    _.....
    Here is one way I would do it using VBA
    Sub TrimRange()
    Let Range("B2:B9").Value = Evaluate("=If({1},TRIM(" & Range("A2:A9").Address & "))")
    End Sub

    Alan
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....The TRIM function was designed to trim the 7-bit ASCII space character (value 32) from text. In the Unicode character set, there is an additional space character ....." etc - hence the need to make sure the TRIM is working on Char 32 for any spaces...