Come sostituire più spazi con uno spazio singolo dalle celle in Excel?
Supponendo di avere un elenco di stringhe di testo che contiene più spazi, ora, devo sostituire questi spazi con un singolo spazio tra le stringhe di testo per separare le parole come mostrato nella seguente schermata. Come posso sostituire gli spazi multipli con uno alla volta senza rimuoverli uno per uno?
Sostituisci più spazi con uno spazio singolo utilizzando la formula
Sostituisci più spazi con uno spazio singolo utilizzando il codice VBA
Sostituisci più spazi con uno spazio singolo utilizzando Kutools per Excel
Sostituisci più spazi con uno spazio singolo utilizzando la formula
In Excel, la normale funzione Trova e sostituisci potrebbe non funzionare bene per noi per risolvere questo problema, quindi possiamo applicare una semplice formula per risolverlo. Per favore, fai come segue:
1. Inserisci questa formula: = TRIM (SOSTITUISCE (A2, CHAR (32), "")) in una cella vuota oltre al valore della cella, vedi screenshot:
2. Quindi premere entrare chiave per ottenere il risultato e selezionare la cella B2, quindi trascinare il quadratino di riempimento sulle celle dell'intervallo in cui si desidera applicare questa formula e tutti gli spazi extra sono stati rimossi dalle stringhe di testo e verrà mantenuto solo un singolo spazio tra il testo. Vedi screenshot:
Sostituisci più spazi con uno spazio singolo utilizzando il codice VBA
Se sei interessato al codice VBA, posso creare un codice per sostituire più spazi con uno solo, per favore fai come segue:
1. Per favore, tieni premuto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Quindi fare clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: sostituisci più spazi con uno spazio singolo
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. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati che desideri rimuovere gli spazi aggiuntivi, vedi screenshot:
4. E poi clicca OK pulsante, tutti gli spazi in eccesso sono stati sostituiti con uno spazio singolo nel testo.
Sostituisci più spazi con uno spazio singolo utilizzando Kutools per Excel
Se devi rimuovere altri tipi di spazi, come rimuovere gli spazi iniziali, gli spazi finali, tutti gli spazi del testo, ti consiglierò uno strumento potente:Kutools per Excel, con il suo Rimuovi spazi utility, puoi rimuovere tutti gli spazi di cui hai bisogno, come lo spazio iniziale, gli spazi finali, tutti gli spazi ...
| Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Dopo l'installazione Kutools for Excel, si prega di fare come segue:
1. Seleziona l'intervallo di dati in cui desideri rimuovere gli spazi aggiuntivi.
2. Clic Kutools > Testo > Rimuovi spazi, vedi screenshot:
3. Nel Rimuovi spazi finestra di dialogo, scegliere Tutti gli spazi in eccesso dal Tipo di spazi e puoi visualizzare il risultato dal file Anteprima riquadro, vedi screenshot:
4. E poi clicca Ok or APPLICA pulsante, tutti gli spazi extra sono stati rimossi dalla cella e lasciano solo un singolo spazio nel testo.
Fare clic per saperne di più su questa funzione Rimuovi spazi.
Fai clic per scaricare Kutools per Excel e prova gratuita ora!
Demo: sostituisci più spazi con un singolo spazio utilizzando Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
