Pergunte aqui
1

Remover acetuação

perguntadas 2021-03-03 13:12:21 +0200

imagem do gravatar de eghijs

updated 2021-03-17 14:15:21 +0200

imagem do gravatar de Schiavinatto

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

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

2 Respostas

1

respondidas 2021-03-03 15:32:39 +0200

imagem do gravatar de Schiavinatto

updated 2021-03-03 15:36:21 +0200

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: https://amds.com.br/funcao-para-remov...

-----------------------------------------------------------------------------

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

Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha Descrição da imagem a esquerda da resposta, para finalizar a pergunta.

editar assinalar como ofensivo Excluir Link mais

Comentários

Obrigado..

imagem do gravatar de eghijseghijs ( 2021-03-15 15:30:39 +0200 )editar
2

respondidas 2021-03-10 20:15:51 +0200

imagem do gravatar de Olivier

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)

editar assinalar como ofensivo Excluir Link mais

Comentários

1

Muito boa, @Olivier, 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...

imagem do gravatar de SchiavinattoSchiavinatto ( 2021-03-10 22:41:37 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2021-03-03 13:12:21 +0200

Lidas: 47 vezes

Última atualização: Mar 10