Remover acetuação

[eghijs]

Bom dia,

Tenho uma planilha para criar e-mail pegando o primeiro e ultimo nome, mais ele também esta pegando todos os tipos de acentos que tenha no nome, como posso remover os acentos e anexa este novo paramento nas linhas abaixo?

Ex.: João Siqueira Silva

=MINÚSCULA(ESQUERDA(B3;PROCURAR(" ";B3;1)-1))

Retorna: joão

=MINÚSCULA(DIREITA(ARRUMAR(B3);NÚM.CARACT(ARRUMAR(B3))-PROCURAR("
“;SUBSTITUIR(SUBSTITUIR(ARRUMAR(B3);” “;”");"";"
“;NÚM.CARACT(ARRUMAR(B3))-NÚM.CARACT(SUBSTITUIR(ARRUMAR(B3);” “;”"))))))**

Retorna: silva

Att,

Erik P. Ghijs

[ohallot]

Sugiro a função EXPREG()

=EXPREG( EXPREG( A1;"[ãáâà]";"a";"g" );"[éêèẽ]";"e";"g" )  ...

repita o aninhamento da função EXPREG, para os demais caracteres acentuados, i, o, u, ç …

Explicando a sintaxe:

• A1: célula com o texto original
• “[ãáâà]”: qualquer ocorrência dos caracteres entre colchetes
• “a”: o caractere a substituir (sem acento)
• “g”: fazer a substituição em todo o texto…

Para ter certeza que não tem maiúsculas antes da conversão, use a função =MINÚSCULA(A1)

[schiavinatto]

Muito boa, @ohallot, não usa Macro/Function.

=EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(EXPREG(A1;"[àáâãä]";"a";"g");"[èéêë]";"e";"g");"[ìíîï]";"i";"g");"[òóôõö]";"o";"g");"[ùúûü]";"u";"g");"[ÀÁÂÃÄ]";"A";"g");"[ÈÉÊË]";"E";"g");"[ÌÍÎ]";"I";"g");"[ÒÓÔÕÖ]";"O";"g");"[ÙÚÛÜ]";"U";"g");"[ç]";"c";"g");"[Ç]";"C";"g");"[ñ]";"n";"g");"[Ñ]";"N";"g")

.Já guardei em autocorreção…

[schiavinatto]

Ola @ eghijs, use esta Função

Function TiraAcento(Palavra)
 CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
 SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
 Texto = ""
 if Palavra <> "" then
 For X = 1 to Len(Palavra)
 Letra = mid(Palavra,X,1)
 Pos_Acento = inStr(CAcento,Letra)
 if Pos_Acento > 0 then
 Letra = mid(SAcento,Pos_Acento,1)
 end if
 Texto = Texto & Letra
 next
 TiraAcento = Texto
 end if
 end function

A primeira fórmula ficaria assim:

=MINÚSCULA(ESQUERDA(TIRAACENTO(B3);PROCURAR(" ";TIRAACENTO(B3);1)-1))

Fonte: Função para remover acentos no Excel – AMDS

---

ATENÇÂO:: Para dar mais detalhes a sua pergunta, use na pergunta ou abaixo. Não use Adicionar resposta para comentário. Grato.

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.

[eghijs]

Obrigado…