Vai al contenuto principale

Come sostituire più spazi con uno spazio singolo dalle celle in Excel?

doc sostituisce più spazi 1

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:

doc sostituisce più spazi 2

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:

doc sostituisce più spazi 3


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:

doc sostituisce più spazi 4

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:

doc sostituisce più spazi 6

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

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

I migliori strumenti per la produttività in ufficio

Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

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...

scheda kte 201905


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I should have checked the Microsoft Doco: https://support.office.com/en-us/article/TRIM-function-410388fa-c5df-49c6-b16c-9e5630b479f9<br />".....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...
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations