WorksheetFunction.Substitute (Excel)

Coloca novo_texto no lugar de texto_antigo em uma sequência de caracteres de texto. Use substituir quando quiser substituir o texto específico em uma sequência de caracteres de texto; Use substituir quando quiser substituir qualquer texto que ocorra em um local específico em uma sequência de caracteres de texto.

Substitute (Arg1, Arg2, ..., Arg4)

Dim strArg1 As String: strArg1 = 
Dim strArg2 As String: strArg2 = 
Dim strArg3 As String: strArg3 = 
Dim strSubstitute As String
strSubstitute = WorksheetFunction.Substitute(Arg1:=strArg1, Arg2:=strArg2, Arg3:=strArg3)

Arguments

Arg1 (String) - Texto - o texto ou a referência a uma célula que contém o texto no qual deseja substituir caracteres.

Arg2 (String) - Texto_antigo-o texto que você deseja substituir.

Arg3 (String) - Novo_texto-o texto que você deseja substituir por texto_antigo.

Arg4 - Núm_da_ocorrência - especifica que ocorrência de texto_antigo se deseja substituir por novo_texto. Se especificar núm_da_ocorrência, apenas aquela ocorrência de texto_antigo será substituída. Caso contrário, cada ocorrência de texto_antigo no texto é alterada para novo_texto