Hoe kunt u meerdere spaties vervangen door één enkele spatie in cellen in Excel?

Stel dat ik een lijst met tekstreeksen heb die meerdere spaties bevatten, en nu moet ik deze spaties vervangen door één enkele spatie tussen de tekstreeksen om de woorden te scheiden zoals in de volgende schermafbeelding te zien is. Hoe kan ik meerdere spaties tegelijk vervangen door één enkele spatie zonder ze één voor één te verwijderen?

Vervang meerdere spaties door één enkele spatie met behulp van een formule

Vervang meerdere spaties door één enkele spatie met behulp van Kutools voor Excel

Vervang meerdere spaties door één enkele spatie met behulp van VBA-code

Vervang meerdere spaties door één enkele spatie met behulp van een formule

In Excel werkt de normale functie Zoeken en Vervangen mogelijk niet goed om dit probleem op te lossen, dus kunnen we een eenvoudige formule toepassen om het te verwerken. Doe het als volgt:

1. Voer deze formule in: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) in een lege cel naast uw celwaarde, zie schermafbeelding:

2. Druk vervolgens op de Enter-toets om het resultaat te krijgen, selecteer cel B2 en sleep de vulgreep over de cellenbereik waarop u deze formule wilt toepassen. Alle extra spaties zijn verwijderd uit de tekstreeksen en er blijft slechts één enkele spatie tussen de tekst staan. Zie schermafbeelding:

Vervang meerdere spaties door één enkele spatie met behulp van Kutools voor Excel

Als u andere soorten spaties moet verwijderen, zoals voorafgaande spaties, volgende spaties of alle spaties in de tekst, dan raad ik een krachtig hulpmiddel aan - Kutools voor Excel. Met de functie Verwijder spaties kunt u elke soort spatie verwijderen zoals u nodig hebt, zoals voorafgaande spaties, volgende spaties, alle spaties...

Nadat u Kutools voor Excel heeft geïnstalleerd, doet u het volgende:

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

2. Klik op Kutools > Tekst > Verwijder spaties, zie schermafbeelding:

3. In het dialoogvenster Verwijder spaties kiest u Alle overtollige spaties in de sectie Type ruimte, en u kunt het resultaat bekijken in het Voorbeeldvenster, zie schermafbeelding:

4. Klik vervolgens op de knop Oké of Toepassen, alle extra spaties zijn verwijderd uit de cel en er blijft slechts één enkele spatie tussen de tekst staan.

Klik hier om Kutools voor Excel te downloaden en gratis uit te proberen!

Vervang meerdere spaties door één enkele spatie met behulp van VBA-code

Als u geïnteresseerd bent in VBA-code, kan ik een code voor u maken om meerdere spaties te vervangen door één enkele spatie. Doe het als volgt:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Vervang meerdere spaties door één 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 de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster om u eraan te herinneren het gegevensbereik te selecteren waaruit u de extra spaties wilt verwijderen, zie schermafbeelding:

4. Klik vervolgens op de knop OK, alle overtollige spaties zijn vervangen door één enkele spatie tussen de tekst.