Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

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 usando 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 Entra 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 > Moduloe incolla il codice seguente nel file Modulo 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 usando 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 i suoi 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 Iscriviti 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 uno spazio singolo usando 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

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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 centinaia di clic del mouse ogni giorno!
fondo officetab
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...