Note: The other languages of the website are Google-translated. Back to English
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan helyettesíthetünk több szóközt egyetlen cellával az Excel celláiban?

doc több szóköz cseréje 1

Ha feltételezem, hogy van egy szöveges karaktersorozatom, amely több szóközt tartalmaz, most ezeket a szóközöket egyetlen szóközzel kell helyettesítenem a szöveges karakterláncok között, hogy elválasszam a szavakat a következő képernyőképen. Hogyan cserélhetem le a több szóközt egyszerre egyszerre, anélkül, hogy egyesével eltávolítanám őket?

Képlet segítségével cseréljen ki több szóközt egyetlen szóközre

Cseréljen több szóközt egyetlen szóközre a VBA kód használatával

Cseréljen több szóközt egyetlen szóközzel a Kutools for Excel használatával


Képlet segítségével cseréljen ki több szóközt egyetlen szóközre

Az Excelben a normál keresés és csere funkció nem biztos, hogy jól működik számunkra a probléma megoldásához, ezért egyszerű képletet alkalmazhatunk a kezelésére. Kérjük, tegye a következőket:

1. Írja be ezt a képletet: = TRIM (PÓT (A2, CHAR (32), "")) a cellája értéke mellett egy üres cellába, lásd a képernyőképet:

doc több szóköz cseréje 2

2. Ezután nyomja meg a gombot belép gombot az eredmény eléréséhez, és válassza ki a B2 cellát, majd húzza át a kitöltő fogantyút arra a tartomány cellára, amelyre alkalmazni szeretné ezt a képletet, és az összes extra szóköz eltűnt a szöveges karakterláncokból, és csak egyetlen szóköz marad a szöveg. Lásd a képernyőképet:

doc több szóköz cseréje 3


Cseréljen több szóközt egyetlen szóközre a VBA kód használatával

Ha érdekel a VBA kód, létrehozhatok egy kódot, amely több szóközt egyetlen szóval helyettesít, kérjük, tegye a következőket:

1. Kérem, tartsa lenyomva ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Ezután kattintson betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Cseréljen több szóközt egy szóközre

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy felszólító mező, amely emlékezteti Önt az adattartomány kiválasztására, amelyről el kívánja távolítani az extra szóközöket.

doc több szóköz cseréje 4

4. Kattintson a gombra OK gombra, a felesleges szóközöket egyetlen szóközzel helyettesítették a szöveg között.


Cseréljen több szóközt egyetlen szóközzel a Kutools for Excel használatával

Ha más típusú szóközöket kell eltávolítani, például eltávolítani a vezető szóközöket, a szóközöket, a szöveg összes helyét, akkor egy hatékony eszközt ajánlok -Kutools for Excel, annak Távolítsa el a Spaces elemet segédprogrammal, szükség szerint eltávolíthat minden szóközt, például a vezető helyet, a záró szóközt, az összes helyet ...

Kutools for Excel : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Telepítése után Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki azt az adattartományt, amelyből el kívánja távolítani a további szóközöket.

2. Kattints Kutools > szöveg > Távolítsa el a Spaces elemet, lásd a képernyőképet:

3. Az Távolítsa el a Spaces elemet párbeszédpanelen válassza a lehetőséget Minden felesleges szóköz tól Spaces Type szakaszban, és megtekintheti az eredményt a Preview ablaktábla, lásd a képernyőképet:

doc több szóköz cseréje 6

4. Kattintson a gombra Ok or alkalmaz gombra, minden extra szóköz eltávolításra került a cellából, és csak egyetlen szóközt hagy a szöveg között.

Kattintson, ha többet szeretne megtudni erről a Helyek eltávolítása funkcióról.

Kattintson a Kutools for Excel és az ingyenes próbaverzió letöltéséhez!


Bemutató: Cseréljen több szóközt egyetlen szóközzel a Kutools for Excel használatával

Kutools for Excel: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
Say something here...
symbols left.
You are guest
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 · 4 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
    • To post as a guest, your comment is unpublished.
      Alan Elston · 4 years ago
      I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9
      ".....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...