Como usar substituto em vba (com exemplo)

Você pode usar o método Substitute() em VBA para substituir todas as ocorrências de um texto específico em uma string por um novo texto.

Este método usa a seguinte sintaxe básica:

Substituto (Texto, Texto_antigo, Texto_novo, Núm_instância)

Ouro:

• Texto : o texto no qual você deseja substituir caracteres
• Old_text : O texto a ser substituído
• New_text : O texto a ser usado como substituto
• Instance_num ( opcional ) : qual instância do texto antigo substituir. Se nada for especificado, todas as ocorrências do texto antigo serão substituídas.

Os exemplos a seguir mostram como usar esse método na prática.

Exemplo: como usar Substituto em VBA

Suponha que temos a seguinte lista de expressões no Excel:

Suponha que, em vez disso, queiramos substituir todos os espaços em todas as células por uma vírgula.

Podemos criar a seguinte macro para fazer isso:

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", ",")
Next
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que todos os espaços em todas as células da coluna A foram substituídos por uma vírgula.

Observe que também poderíamos usar a seguinte sintaxe para substituir cada espaço por nada:

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", "")
Next
    
End Sub

Quando executamos esta macro, recebemos a seguinte saída:

Observe que todos os espaços em todas as células da coluna A foram substituídos por nada.

Em outras palavras, removemos cada um dos espaços de cada célula da coluna A.

Nota : Você pode encontrar a documentação completa do método VBA Substitute 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