Ga naar hoofdinhoud

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 het 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 Solliciteer 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!

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

Omschrijving


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 honderden muisklikken voor u elke dag!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....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...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations