Come sostituire più spazi con un singolo spazio nelle celle di Excel?

Supponiamo di avere un elenco di stringhe di testo che contengono più spazi, ora devo sostituire questi spazi con un singolo spazio tra le stringhe di testo per separare le parole come mostrato nello screenshot seguente. Come posso sostituire più spazi con uno solo contemporaneamente senza rimuoverli uno per uno?

Sostituire più spazi con un singolo spazio utilizzando una formula

Sostituire più spazi con un singolo spazio utilizzando Kutools per Excel

Sostituire più spazi con un singolo spazio utilizzando il codice VBA

Sostituire più spazi con un singolo spazio utilizzando una formula

In Excel, la normale funzione Trova e Sostituisci potrebbe non funzionare bene per risolvere questo problema, quindi possiamo applicare una semplice formula per gestirlo. Si prega di fare come segue:

1. Inserisci questa formula: =TRIM(SUBSTITUTE(A2,CHAR(32)," ")) in una cella vuota accanto al valore della tua cella, vedi screenshot:

2. Quindi premi il tasto Invio per ottenere il risultato, seleziona la cella B2, poi trascina la maniglia di riempimento sulle celle dell'intervallo a cui desideri applicare questa formula, e tutti gli spazi extra verranno rimossi dalle stringhe di testo e rimarrà solo uno spazio singolo tra i testi. Vedi screenshot:

Sostituire più spazi con un singolo spazio utilizzando Kutools per Excel

Se hai altri tipi di spazi da rimuovere, come la rimozione degli spazi iniziali, spazi finali, tutti gli spazi del testo, ti consiglio uno strumento potente --Kutools per Excel, con la sua funzione Rimuovi spazi, puoi eliminare qualsiasi tipo di spazio di cui hai bisogno, come spazi iniziali, spazi finali, tutti gli spazi...

Dopo aver installato Kutools per Excel, si prega di fare come segue:

1. Seleziona l'intervallo dati da cui vuoi rimuovere gli spazi extra.

2. Clicca su Kutools > Testo > Rimuovi spazi, vedi screenshot:

3. Nella finestra di dialogo Rimuovi spazi, scegli Tutti gli spazi in eccesso dalla sezione Tipo di spazio, e puoi visualizzare il risultato nel riquadro Anteprima, vedi screenshot:

4. E poi clicca sul pulsante Ok o Applica, tutti gli spazi extra verranno rimossi dalla cella e rimarrà solo uno spazio singolo tra i testi.

Clicca per Scaricare Kutools per Excel e prova gratis Ora!

Sostituire più spazi con un singolo spazio utilizzando il codice VBA

Se sei interessato al codice VBA, posso creare un codice per te per sostituire più spazi con uno solo, si prega di fare come segue:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic per Applicazioni.

2. Poi clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Sostituire 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 premi il tasto F5 per eseguire questo codice, e apparirà una finestra di avviso per ricordarti di selezionare l'intervallo dati da cui vuoi rimuovere gli spazi extra, vedi screenshot:

4. E poi clicca sul pulsante OK, tutti gli spazi in eccesso verranno sostituiti con uno spazio singolo tra i testi.