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 codul VBA
Înlocuiți mai multe spații cu spațiu unic folosind Kutools pentru Excel
Î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 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.
Înlocuiți mai multe spații cu spațiu unic folosind Kutools pentru 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 pentru 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 ...
Kutools pentru Excel : cu mai mult de 300 de programe de completare Excel la îndemână, gratuit pentru a încerca fără limitări în 30 de zile. |
După instalare Kutools pentru 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 pentru a afla mai multe despre această funcție Eliminați spațiile.
Faceți clic pentru a descărca Kutools pentru Excel și încercare gratuită acum!
Demo: Înlocuiți mai multe spații cu spațiu unic folosind Kutools pentru Excel
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!