Hoppa till huvudinnehåll

Hur byter jag ut flera utrymmen med ett mellanslag från celler i Excel?

doc ersätt flera mellanslag 1

Antag att jag har en lista med textsträngar som innehåller flera mellanslag, nu måste jag ersätta dessa mellanslag med ett enda mellanslag mellan textsträngarna för att separera orden enligt följande skärmdump. Hur kunde jag ersätta flera mellanslag med en på en gång utan att ta bort dem en efter en?

Ersätt flera mellanslag med ett mellanslag med hjälp av formeln

Ersätt flera mellanslag med ett mellanslag med VBA-kod

Ersätt flera mellanslag med ett mellanslag genom att använda Kutools för Excel


Ersätt flera mellanslag med ett mellanslag med hjälp av formeln

I Excel kanske den normala funktionen Sök och ersätt inte fungerar bra för oss för att lösa detta problem, så vi kan använda en enkel formel för att hantera det. Gör så här:

1. Ange denna formel: = TRIM (SUBSTITUTE (A2, CHAR (32), "")) i en tom cell förutom ditt cellvärde, se skärmdump:

doc ersätt flera mellanslag 2

2. Tryck sedan på ange för att få resultatet, och välj cell B2, dra sedan fyllningshandtaget till de intervallceller som du vill använda denna formel, och alla extra mellanslag har tagits bort från textsträngarna och endast ett enda utrymme kommer att finnas kvar texten. Se skärmdump:

doc ersätt flera mellanslag 3


Ersätt flera mellanslag med ett mellanslag med VBA-kod

Om du är intresserad av VBA-koden kan jag skapa en kod för dig att ersätta flera mellanslag med en, gör så här:

1. Vänligen håll nere ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.

VBA-kod: Ersätt flera mellanslag med singe-utrymme

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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta kommer att dyka upp för att påminna dig om att välja det dataområde som du vill ta bort de extra utrymmena, se skärmdump:

doc ersätt flera mellanslag 4

4. Och klicka sedan på OK -knappen har alla överflödiga mellanslag ersatts med ett mellanslag i texten.


Ersätt flera mellanslag med ett mellanslag genom att använda Kutools för Excel

Om du har andra typer av utrymmen som måste tas bort, som att ta bort de ledande mellanslagen, efterföljande mellanslag, alla mellanslag i texten, kommer jag att rekommendera ett kraftfullt verktyg -Kutools för Excel, med dess Ta bort utrymmen verktyget kan du ta bort alla utrymmen som du behöver, till exempel ledande utrymme, bakre utrymmen, alla mellanslag ...

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar

När du har installerat Kutools för Excel, gör så här:

1. Välj det dataområde som du vill ta bort de extra utrymmena.

2. Klicka Kutools > text > Ta bort utrymmen, se skärmdump:

3. I Ta bort utrymmen dialogrutan, välj Alla överflödiga utrymmen från Plats typ avsnittet, och du kan se resultatet från Förhandsvisning ruta, se skärmdump:

doc ersätt flera mellanslag 6

4. Och klicka sedan på Ok or Ansök -knappen, alla extra mellanslag har tagits bort från cellen och lämnar bara ett enda mellanslag i texten.

Klicka för att veta mer om den här Ta bort utrymme-funktionen.

Klicka för att ladda ner Kutools för Excel och gratis testversion nu!


Demo: Ersätt flera mellanslag med ett mellanslag med hjälp av Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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