Vba: come rimuovere gli spazi iniziali e finali

È possibile utilizzare la seguente sintassi di base per rimuovere gli spazi iniziali e finali dalle stringhe utilizzando VBA:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

Questo particolare esempio rimuove gli spazi iniziali e finali da ogni stringa nell’intervallo A2:A7 e restituisce i risultati nell’intervallo B2:B7 .

L’esempio seguente mostra come utilizzare questa sintassi nella pratica.

Esempio: utilizzo di VBA per rimuovere gli spazi iniziali e finali dalle stringhe

Supponiamo di avere il seguente elenco di stringhe in Excel:

Tieni presente che molte stringhe hanno spazi iniziali o finali.

Supponiamo di voler rimuovere gli spazi iniziali e finali da ogni stringa.

Per fare ciò possiamo creare la seguente macro:

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

Quando eseguiamo questa macro, riceviamo il seguente output:

La colonna B visualizza ciascuna delle stringhe nella colonna A con gli spazi iniziali e finali rimossi.

Tieni presente che se desideri rimuovere solo gli spazi iniziali o finali dalle stringhe, puoi utilizzare rispettivamente le funzioni LTrim o RTrim .

Nota : è possibile trovare la documentazione completa per ciascuna delle funzioni Trim VBA qui .

Risorse addizionali

I seguenti tutorial spiegano come eseguire altre attività comuni utilizzando VBA:

VBA: come contare le occorrenze di caratteri in una stringa
VBA: come verificare se una stringa contiene un’altra stringa
VBA: come contare le celle con testo specifico