Nel caso in cui desideri che un codice VBA rimuova tutti gli spazi finali nel solo foglio attivo, questo articolo ti aiuterà sicuramente. Molte volte abbiamo lasciato uno spazio alla fine per errore oa volte copiamo i dati dal web e non ce ne accorgiamo. In questo articolo impareremo come eliminare lo spazio lasciato per errore.
Domanda): In Excel, possiamo usare la funzione TRIM con SUBSTITUTE & CHAR, ad esempio =TRIM(SUBSTITUTE(A1,CHAR(160)," ")) per rimuovere lo spazio finale alla fine di qualsiasi testo.
Vorrei che una Macro mi aiutasse a rimuovere tutti gli spazi superflui rimasti alla fine della stringa.
Per ottenere il codice per rimuovere lo spazio alla fine del testo; dobbiamo seguire i passaggi seguenti per avviare l'editor VB.
- Fare clic sulla scheda Sviluppatore
- Dal gruppo Codice, seleziona Visual Basic
Copia il seguente codice nel modulo del foglio di lavoro
Sub trimspace()
Dim c As Range, rngConstants As Range
In caso di errore Riprendi Avanti
Imposta rngConstants = ActiveSheet.UsedRange.SpecialCells(2, 2)
In caso di errore Vai a 0
Se non rngCostanti non è niente allora
"ottimizza le prestazioni"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
'trim celle incl char 160
Per ogni c In rngCostanti
c.Value = Trim$(Application.Clean(Replace(c.Value, Chr(160), " ")))
Avanti c
'Ripristina le impostazioni
Application.ScreenUpdating = True
Applicazione.Calcolo = xlCalcoloAutomatico
Finisci se
Fine sottotitolo
- Questo rimuoverà tutti gli spazi alla fine.
Nota: la macro sopra verrà eseguita solo su activesheet.
In questo modo, possiamo rimuovere gli spazi finali alla fine, utilizzando il codice VBA.
Scarica - Rimuovi lo spazio finale tramite VBA - xlsm