Notifications
Clear all

Fórmula para remover acentos de uma célula

6 Posts
4 Usuários
1 Reactions
3,040 Visualizações
(@felipen_)
Posts: 0
New 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)
Posts: 0
New Member
 

Bom dia utilize a função substituir

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

 
Postado : 20/07/2018 7:56 am
(@felipen_)
Posts: 0
New 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)
Posts: 0
New 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

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

Ou também inserir mais argumentos.

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

 
Postado : 20/07/2018 10:55 am
(@xlarruda)
Posts: 0
New 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.

 
Postado : 20/07/2018 1:02 pm