Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako zamenjati več prostora z enim samim prostorom iz celic v Excelu?

doc zamenja več prostih mest 1

Predpostavljam, da imam seznam besednih nizov, ki vsebujejo več presledkov, zdaj moram te prostore zamenjati z enim samim prostorom med besednimi nizi, da ločim besede kot prikazani prikaz slike. Kako bi lahko zamenjal več presledkov z enim samim hkrati, ne da bi jih odstranil eden za drugim?

Zamenjajte več presledkov z enim prostorom z uporabo formule

Zamenjajte več presledkov z enim samim prostorom s kodo VBA

Zamenjajte več presledkov z enim prostorom z uporabo orodja Kutools for Excel


Odstrani Spaces med črkami in besedami:

Kutools za ExcelJe Odstrani Spaces pripomoček vam lahko pomaga odstraniti več vrst presledkov, na primer odstraniti vse vodilne prostore, sledilne prostore, vse prostore in tako naprej.

doc odstrani presledke

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Zamenjajte več presledkov z enim prostorom z uporabo formule


V Excelu običajna funkcija »Poišči in zamenjaj« morda ne bo uspešna, da bomo lahko rešili to težavo, zato lahko uporabimo preprosto formulo, ki jo obravnavamo. Prosimo, naredite tako:

1. Vnesite to formulo: = TRIM (SUBSTITUTE (A2, CHAR (32), ""))) v prazno celico, poleg vrednosti celice, si oglejte posnetek zaslona:

doc zamenja več prostih mest 2

2. Nato pritisnite Vnesite ključ, da dosežete rezultat in izberete celico B2, nato povlecite ročico za polnjenje v polja celic, za katere želite uporabiti to formulo, in vsi dodatni presledki so odstranjeni iz besedilnih nizov in med enim samim prostorom besedilo. Prikaz slike:

doc zamenja več prostih mest 3


Zamenjajte več presledkov z enim samim prostorom s kodo VBA

Če vas zanima kodo VBA, lahko ustvarim kodo, ki vam bo zamenjala več presledkov z enim samim, storite na naslednji način:

1. Pridržite se ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Nato kliknite Vstavi > Moduli, in prilepite naslednjo kodo v Moduli Okno.

VBA koda: Zamenjajte več presledkov z enim prostorom

Sub replace_multiplespaces()
'Updateby20150602
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. Nato pritisnite F5 ključ za zagon te kode in se bo pojavilo odzivno okno, ki vas opomni, da izberete obseg podatkov, za katerega želite odstraniti dodatne presledke, glejte sliko zaslona:

doc zamenja več prostih mest 4

4. In nato kliknite OK gumb, vsi presežni prostori so bili zamenjani z enim samim prostorom med besedilom.


Zamenjajte več presledkov z enim prostorom z uporabo orodja Kutools for Excel

Če želite odstraniti druge vrste presledkov, na primer odstranitev vodilnih presledkov, zapolnitev presledkov, vseh presledkov besedila, vam priporočam močno orodje -Kutools za Excel, z njenimi Odstrani Spaces uporabnost, lahko odstranite poljubne presledke, kot jih potrebujete, kot so vodilni prostor, sledilni prostor, vsi prostori ...

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Izberite obseg podatkov, ki ga želite odstraniti z dodatnimi presledki.

2. Kliknite Kutools > Besedilo > Odstrani Spaces, si oglejte sliko zaslona:

doc zamenja več prostih mest 5 5

3. v Odstrani Spaces izberite pogovorno okno Vsi presežni prostori Iz Tipi prostora in si lahko ogledate rezultat predogled podokno, si oglejte sliko zaslona:

doc zamenja več prostih mest 6

4. In nato kliknite Ok or Uporabi gumb, so bili vsi dodatni prostori odstranjeni iz celice in ostanejo samo en sam prostor med besedilom.

Kliknite, če želite izvedeti več o tej funkciji Odstrani prostore.

Kliknite za prenos Kutools za Excel in brezplačno preizkusite zdaj!


Demo: Zamenjajte več presledkov z enim prostorom z uporabo orodja Kutools for Excel

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
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 · 2 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