Questo tutorial dimostrerà come utilizzare le funzioni Trim, LTrim e RTrim VBA, nonché la funzione Trim del foglio di lavoro.
Funzione di ritaglio
La funzione VBA Trim rimuove ("trim") gli spazi errati prima e dopo le stringhe di testo.
Taglia gli spazi prima e dopo il testo
La funzione VBA Trim rimuoverà gli spazi prima e dopo le stringhe di testo:
12345678910 | Sub TrimEsempio_1()MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
Taglia più spazi prima e dopo il testo
Ciò include il taglio di più spazi prima e dopo il testo:
12345678910 | Sub TrimEsempio_2()MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
VBA Trim NON rimuoverà più spazi tra le parole
Tuttavia, la funzione Trim non rimuoverà più spazi tra le parole:
12345678910 | Sub TrimEsempio_3()MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox Trim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
Taglia come funzione del foglio di lavoro
Tuttavia, la funzione del foglio di lavoro Excel Trim può essere utilizzata per rimuovere gli spazi extra tra le parole:
Usa la funzione di ritaglio del foglio di lavoro in VBA
Per utilizzare la funzione di ritaglio di Excel in VBA, chiamala utilizzando WorksheetFunction:
12345678910 | Sub TrimEsempio_4()Msgbox WorksheetFunction.Trim(" Amo excel ")'Il risultato è: "Amo excel"Msgbox WorksheetFunction.Trim ("Amo Excel")'Il risultato è: "Amo excel"Msgbox WorksheetFunction.Trim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
Stanco di cercare esempi di codice VBA? Prova AutoMacro!
Differenza tra WorksheetFunction.Trim e VBA Trim
Questo dimostrerà le differenze tra Trim e WorksheetFunction.Trim:
1234567891011121314151617 | Sub TrimEsempio_5()Msgbox WorksheetFunction.Trim(" Amo excel ")'Il risultato è: "Amo excel"Msgbox Trim ("Amo Excel")'Il risultato è: "Amo excel"Msgbox WorksheetFunction.Trim ("Amo Excel")'Il risultato è: "Amo excel"Msgbox Trim ("Amo Excel")'Il risultato è: "Amo excel"Msgbox WorksheetFunction.Trim("Amo Excel")'Il risultato è: "Amo excel"Msgbox Trim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
Usa VBA per aggiungere la funzione di ritaglio in un intervallo
La funzione Taglia foglio di lavoro può essere aggiunta in un intervallo utilizzando la proprietà .Formula:
123 | Sub TrimEsempio_6()ThisWorkbook.Worksheets("Foglio1").Intervallo("B1").Formula = "=trim(A1)"Fine sottotitolo |
LFunzione di taglio
La funzione LTrim rimuove gli spazi solo dal lato sinistro della parola:
12345678910111213141516171819 | Sub TrimEsempio_7()MsgBox LTrim("Amo excel")'Il risultato è: "Amo excel"MsgBox LTrim ("Amo excel")'Il risultato è: "Amo excel"MsgBox LTrim("Amo Excel")'Il risultato è: "Amo excel"MsgBox LTrim("Amo excel")'Il risultato è: "Amo excel"MsgBox LTrim ("Amo Excel")'Il risultato è: "Amo excel"MsgBox LTrim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
RTrim Funzione
La funzione RTrim rimuove gli spazi solo dal lato destro della parola:
12345678910111213141516171819 | Sub TrimEsempio_8()MsgBox RTrim("Amo excel")'Il risultato è: "Amo excel"MsgBox RTrim ("Amo excel")'Il risultato è: "Amo excel"MsgBox RTrim("Amo excel")'Il risultato è: "Amo excel"MsgBox RTrim("Amo excel")'Il risultato è: "Amo excel"MsgBox RTrim ("Amo excel")'Il risultato è: "Amo excel"MsgBox RTrim("Amo Excel")'Il risultato è: "Amo excel"Fine sottotitolo |
Trim, Ltrim e Rtrim non rimuovono gli spazi tra le parole.
Rimuovi tutti gli spazi dal testo
Taglia rimuoverà solo gli spazi extra tra le parole, ma per rimuovere tutti gli spazi in una stringa di testo, puoi usare la funzione Sostituisci:
1234 | Sub ReplaceEsempio ()MsgBox Replace(" Amo excel ", " ", "")'Il risultato è: "Iloveexcel"Fine sottotitolo |