Cum se înlocuiește mai multe spații cu spațiu unic din celule în Excel?

Presupunând că am o listă de șiruri de text care conține mai multe spații, acum, trebuie să înlocuiesc aceste spații cu un singur spațiu între șirurile de text pentru a separa cuvintele după cum se arată în următoarea captură de ecran. Cum aș putea înlocui spațiile multiple cu unul singur simultan fără a le elimina pe rând?

Înlocuiți mai multe spații cu un singur spațiu utilizând formula

Înlocuiți mai multe spații cu un singur spațiu utilizând Kutools for Excel

Înlocuiți mai multe spații cu un singur spațiu utilizând codul VBA

Înlocuiți mai multe spații cu un singur spațiu utilizând formula

În Excel, este posibil ca funcția normală Găsiți și înlocuiți să nu funcționeze bine pentru a rezolva această problemă, astfel încât să putem aplica o formulă simplă pentru a o rezolva. Vă rugăm să faceți acest lucru:

1. Introduceți această formulă: = TRIM (SUBSTITUT (A2, CHAR (32), "")) într-o celulă goală pe lângă valoarea celulei dvs., consultați captura de ecran:

2. Apoi apăsați Intrați tasta pentru a obține rezultatul și selectați celula B2, apoi trageți mânerul de umplere peste celulele de pe care doriți să aplicați această formulă și toate spațiile suplimentare au fost eliminate din șirurile de text și doar un singur spațiu va fi păstrat între textul. Vedeți captura de ecran:

Înlocuiți mai multe spații cu un singur spațiu utilizând Kutools for Excel

Dacă aveți alte tipuri de spații care trebuie îndepărtate, cum ar fi eliminarea spațiilor principale, a spațiilor finale, a tuturor spațiilor textului, vă recomand un instrument puternic -Kutools for Excel, cu ei Eliminați spațiile utilitar, puteți elimina orice spații după cum aveți nevoie, cum ar fi spațiul de conducere, spațiile finale, toate spațiile ...

După instalare Kutools for Excel, vă rugăm să faceți următoarele:

1. Selectați intervalul de date pe care doriți să îl eliminați spațiile suplimentare.

2. Clic Kutools > Text > Eliminați spațiile, vezi captura de ecran:

3. În Eliminați spațiile caseta de dialog, alegeți Toate spațiile în exces de la Tip spații secțiunea și puteți vizualiza rezultatul din Anunţ panoul, vezi captura de ecran:

4. Apoi faceți clic pe Ok or Aplică buton, toate spațiile suplimentare au fost eliminate din celulă și nu lasă decât un singur spațiu între text.

Faceți clic pe Descărcare Kutools for Excel și încercare gratuită acum!

Înlocuiți mai multe spații cu un singur spațiu utilizând codul VBA

Dacă sunteți interesat de codul VBA, vă pot crea un cod pentru a înlocui mai multe spații cu unul singur, vă rugăm să faceți următoarele:

1. Vă rugăm să țineți apăsat ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. Apoi apasa Insera > Moduleși lipiți următorul cod în Module Fereastră.

Cod VBA: Înlocuiți mai multe spații cu spațiu unic

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. Apoi apăsați F5 tasta pentru a rula acest cod și va apărea o casetă de solicitare pentru a vă reaminti să selectați intervalul de date pe care doriți să îl eliminați spațiile suplimentare, consultați captura de ecran:

4. Apoi faceți clic pe OK buton, toate spațiile în exces au fost înlocuite cu un spațiu unic între text.