Gå til hovedindhold

Hvordan udskiftes flere mellemrum med enkelt mellemrum fra celler i Excel?

Forfatter: Xiaoyang Sidst ændret: 2020-07-17
doc udskift flere mellemrum 1

Antag, at jeg har en liste over tekststrenge, der indeholder flere mellemrum, nu skal jeg erstatte disse mellemrum med et enkelt mellemrum mellem tekststrengene for at adskille ordene som vist på det følgende skærmbillede. Hvordan kunne jeg udskifte flere mellemrum med et enkelt på én gang uden at fjerne dem en efter en?

Erstat flere mellemrum med et enkelt mellemrum ved hjælp af formlen

Udskift flere mellemrum med et enkelt mellemrum ved hjælp af VBA-kode

Udskift flere mellemrum med et enkelt mellemrum ved hjælp af Kutools til Excel


Erstat flere mellemrum med et enkelt mellemrum ved hjælp af formlen

I Excel fungerer den normale Find og erstat-funktion muligvis ikke godt for os at løse dette problem, så vi kan anvende en simpel formel til at håndtere det. Gør som dette:

1. Indtast denne formel: = TRIM (SUBSTITUT (A2, CHAR (32), "")) i en tom celle udover din celleværdi, se skærmbillede:

doc udskift flere mellemrum 2

2. Tryk derefter på Indtast nøgle for at få resultatet, og vælg celle B2, træk derefter fyldhåndtaget over til de række celler, som du vil anvende denne formel, og alle de ekstra mellemrum er fjernet fra tekststrengene, og kun et enkelt mellemrum holdes blandt teksten. Se skærmbillede:

doc udskift flere mellemrum 3


Udskift flere mellemrum med et enkelt mellemrum ved hjælp af VBA-kode

Hvis du er interesseret i VBA-koden, kan jeg oprette en kode, som du kan erstatte flere mellemrum med en, gør som følger:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik derefter på indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Erstat flere mellemrum med singelum

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. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, som du vil fjerne de ekstra mellemrum, se skærmbillede:

doc udskift flere mellemrum 4

4. Og klik derefter på OK knappen, er alle overskydende mellemrum erstattet med et enkelt mellemrum i teksten.


Udskift flere mellemrum med et enkelt mellemrum ved hjælp af Kutools til Excel

Hvis du har andre typer mellemrum, der skal fjernes, såsom at fjerne de førende mellemrum, bageste mellemrum, alle mellemrum i teksten, vil jeg anbefale et kraftfuldt værktøj -Kutools til Excel, med dens Fjern mellemrum værktøj, kan du fjerne ethvert mellemrum, som du har brug for, såsom ledende plads, bageste mellemrum, alle mellemrum ...

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage

Efter installation Kutools til Excelskal du gøre som følger:

1. Vælg det dataområde, som du vil fjerne de ekstra mellemrum.

2. Klik Kutools > tekst > Fjern mellemrum, se skærmbillede:

3. I Fjern mellemrum dialogboksen, vælg Alle overskydende rum fra Rumtype sektion, og du kan se resultatet fra Eksempel rude, se skærmbillede:

doc udskift flere mellemrum 6

4. Og klik derefter på Ok or Indløs knap, er alle ekstra mellemrum fjernet fra cellen og efterlader kun et enkelt mellemrum mellem teksten.

Klik for at vide mere om denne Fjern plads-funktion.

Klik for at downloade Kutools til Excel og gratis prøveversion nu!


Demo: Udskift flere mellemrum med enkelt mellemrum ved hjælp af Kutools til Excel

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage. Download og gratis prøveversion nu!

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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