Excel Automatizar substituições de palavras no excel

Antonio Baptista · 7 de março de 2023

Boa tarde tem como criar uma rotina automatica para abrir um arquivo excel e fazer subisticoes automaticas ?

exemplo abrir a planilha excel clientes.xls

E subistituir palavras tipo:

avenida por av.

apartartamento por ap.

Condominio por cond.

ppeterk · 9 de março de 2023

@Antonio Baptista Serão sempre as mesmas palavras? Qual critério para dizer se será, por exemplo, av. ou aven.?

Antonio Baptista · 10 de março de 2023

@ppeterk Bom dia , sempre as mesmas palavras , o criterio sempre fixo mesmo.

Tipo avenida por av.

apartamento por ap.

bloco por bl.

jardim por jd.

teno um arquivo mensal com 70mil linhas e tem um campo que não pode ultrapassar 45 caracteres , ai preciso diminuilos todo mes .

Grato

Midori · 10 de março de 2023

@Antonio Baptista A automatização deve ser feita via VBA na planilha que vai abrir a outra para efetuar as substituições. Para isso tem a função Replace onde você informa o valor a ser procurado e o novo,

Sub Substitui(Planilha As Worksheet)
    Dim Palavra As Variant
    
    For Each Palavra In Array( _
        "avenida|av.", "apartamento|ap.", "Condominio|cond.")
        Call Planilha.Cells.Replace( _
            What:=Split(Palavra, "|")(0), _
            Replacement:=Split(Palavra, "|")(1))
    Next Palavra
End Sub

Assim é só passar a planilha como argumento para a Sub, p.ex,

Sub MacroSubstitui()
    Call Substitui(Workbooks.Open("C:\Clientes.xls").ActiveSheet)
End Sub

Cole os dois procedimentos no módulo e execute a MacroSubstitui para procurar o arquivo C:\Clientes.xls e fazer as substituições na planilha ativa ou em alguma outra caso queira especificar o nome da aba.

Antonio Baptista · 13 de março de 2023

Bom dia Midori td bem ? sou bem cru em excel não sei se estou fazendo certo , mas o vb não esta encontrando meu arquivo clientes.xls , mas o arquivo esta la veja a imagem abaixo .

Obrigado