Vba: como remover caracteres especiais de uma string

Você pode usar a seguinte sintaxe básica em VBA para remover caracteres especiais de strings:

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

Este exemplo específico substitui os seguintes caracteres especiais em cada string no intervalo de células A2:A8 e gera as novas strings nas células B2:B8 :

• !
• @
• #

Observe que usamos três métodos de substituição aninhados para remover cada um desses caracteres especiais das strings.

Para remover ainda mais caracteres especiais, basta usar métodos de substituição mais aninhados.

O exemplo a seguir mostra como usar essa sintaxe na prática.

Exemplo: remover caracteres especiais de uma string usando VBA

Suponha que temos a seguinte lista de strings no Excel:

Suponha que queiramos remover os seguintes caracteres especiais de cada string:

• !
• @
• #

Podemos criar a seguinte macro para fazer isso:

 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 executamos esta macro, recebemos a seguinte saída:

A coluna B exibe cada uma das strings na coluna A com os caracteres especiais removidos.

Nota : Você pode encontrar a documentação completa para o método VBA Replace aqui .

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns usando VBA:

VBA: Como contar ocorrências de caracteres em uma string
VBA: como verificar se uma string contém outra string
VBA: Como contar células com texto específico