Vba: come rimuovere caratteri speciali da una stringa

È possibile utilizzare la seguente sintassi di base in VBA per rimuovere caratteri speciali dalle stringhe:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

Questo particolare esempio sostituisce i seguenti caratteri speciali in ciascuna stringa nell’intervallo di celle A2:A8 e genera le nuove stringhe nelle celle B2:B8 :

• !
• @
• #

Tieni presente che abbiamo utilizzato tre metodi di sostituzione nidificati per rimuovere ciascuno di questi caratteri speciali dalle stringhe.

Per rimuovere ancora più caratteri speciali, utilizza semplicemente più metodi di sostituzione nidificati.

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

Esempio: rimuovere caratteri speciali da una stringa utilizzando VBA

Supponiamo di avere il seguente elenco di stringhe in Excel:

Supponiamo di voler rimuovere da ogni stringa i seguenti caratteri speciali:

• !
• @
• #

Per fare ciò possiamo creare la seguente macro:

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(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 i caratteri speciali rimossi.

Nota : qui è possibile trovare la documentazione completa per il metodo VBA Sostituisci .

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