Notifications
Clear all

Fórmula para remover acentos de uma célula

6 Posts
4 Usuários
1 Reactions
3,045 Visualizações
(@felipen_)
Posts: 39
Eminent Member
Topic starter
 

Pessoal, bom dia!

Existe alguma fórmula no Excel que remova todo e qualquer tipo de acento ou caractere de uma frase ou de uma palavra?

Exemplo: tenho em uma célula a palavra "ATENÇÃO". Quero inserir uma fórmula que transforme a palavra "ATENÇÃO" em "ATENCAO".

Desde já, agradeço!

 
Postado : 20/07/2018 7:17 am
carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
 

Bom dia utilize a função substituir

=SUBSTITUIR(SUBSTITUIR("ATENÇÃO";"Ã";"A");"Ç";"C")

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 20/07/2018 7:56 am
(@felipen_)
Posts: 39
Eminent Member
Topic starter
 

carlosrgs, boa tarde!

Nesse caso, você utilizou uma fórmula inserindo a palavra atenção dentro.

Eu gostaria de saber se existe uma fórmula genérica, que substituia qualquer tipo de acento em qualquer palavra...

Obrigado!

 
Postado : 20/07/2018 10:08 am
deciog
(@deciog)
Posts: 0
Trusted Member
 

Você pode colocar a célula em questão, dizemos que a palavra esteja na A1 então seria assim

na formula que o colega carlosrgs fez

=SUBSTITUIR(SUBSTITUIR(A1;"Ã";"A");"Ç";"C")

Agora para substituir todos os acento, coloca uma substituição para cada acento

Decio

Marque o tópico como Resolvido se foi solucionado seu problema.
Brasil, São Paulo - SP
Décio Gassi

 
Postado : 20/07/2018 10:30 am
OrlandoS reacted
carlosrgs
(@carlosrgs)
Posts: 631
Prominent Member
 

Ou também inserir mais argumentos.

=SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(SUBSTITUIR(A1;"Ã";"A");"Ç";"C");"É";"E");"À";"A");"Õ";"O");"Ê";"E")

_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.

 
Postado : 20/07/2018 10:55 am
xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Usa essa function aqui:

Function Acento(caract)
Dim codiA, codiB, Temp  As String
Dim i, p As Long
'Publicada em http://www.douglasgodoy.com.br
'Conheça meu canal no youtube.'
'https://www.youtube.com/c/douglasgodoybr?sub_confirmation=1
'Acentos e caracteres especiais que serão buscados no texto digitado
'Você pode definir outros caracteres nessa variável, mas
' precisará também colocar a letra correspondente em codiB
codiA = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
'Letras correspondentes para substituição
codiB = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
'Armazena em temp a string recebida
Temp = caract
'Loop que percorerá a palavra letra a letra
For i = 1 To Len(Temp)
'InStr buscará se a letra pertence ao grupo com acentos e se existir retornará a posição dela
p = InStr(codiA, Mid(Temp, i, 1))
'Substitui a letra de indice i em codiA pela sua correspondente em codiB
If p > 0 Then Mid(Temp, i, 1) = Mid(codiB, p, 1)
Next
'Retorna o texto sem o acento ou caractere especial
Acento = Temp
End Function

Créditos na Function.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 20/07/2018 1:02 pm