Replace – Substituir

Descrição:

A função Replace no VBA é utilizada para substituir uma parte específica de uma cadeia de caracteres (string) por outra. Ela recebe como argumentos o texto original, a parte a ser substituída, o texto de substituição e, opcionalmente, o número de ocorrências a serem substituídas. Essa função é muito útil para manipular e transformar strings de texto de maneira eficiente em projetos de automação no Microsoft Excel e outros aplicativos do Microsoft Office.
Exemplos:

Sub Exemplo1()
    Dim texto As String
    texto = "Olá Mundo"
    texto = Replace(texto, "Mundo", "Amigo")
    MsgBox texto
End Sub
    

Este exemplo irá exibir uma caixa de mensagem com o texto “Olá Amigo”.

Sub Exemplo2()
    Dim texto As String
    texto = "Hoje é um belo dia"
    texto = Replace(texto, "belo", "maravilhoso")
    MsgBox texto
End Sub
    

Este exemplo irá exibir uma caixa de mensagem com o texto “Hoje é um maravilhoso dia”.

Sub Exemplo3()
    Dim texto As String
    texto = "AAAAAABBBBBB"
    texto = Replace(texto, "A", "X")
    MsgBox texto
End Sub
    

Este exemplo irá exibir uma caixa de mensagem com o texto “XXXXXXBBBBBB”, onde todos os “A”s foram substituídos por “X”.

Sub Exemplo4()
    Dim texto As String
    texto = "Hoje é sábado"
    texto = Replace(texto, "sábado", "domingo")
    MsgBox texto
End Sub
    

Este exemplo irá exibir uma caixa de mensagem com o texto “Hoje é domingo”.

Sub Exemplo5()
    Dim texto As String
    texto = "abcabcabc"
    texto = Replace(texto, "a", "")
    MsgBox texto
End Sub
    

Este exemplo irá exibir uma caixa de mensagem com o texto “bcbcbc”, onde todos os “a”s foram removidos.