Ir ao conteúdo

Excel: Acentos


braconius

Posts recomendados

Postado

Amigos, alguem pode me informar se é possível, por meio de fórmula ou de alguma função, remover os acentos de palavras em varias linhas?

Por exemplo:

Celula A1: José Carlos

Celula A2: Átila Santos

Preciso transformar estas celulas assim:

Celula A1: Jose Carlos

Celula A2: Atila Santos

Agradeço muito desde já!

Abraços!

Postado

Você pode usar o ctrl+L e ir substituindo, ou pode usar uma macro, que fiz aqui, bem simples.

A macro funciona contando que o texto esteja nas células, A1, A2, A3 etc e que não tem nenhuma linha em branco.


Sub teste_replace()

Dim LResult, Texto As String
Dim i, Linhas As Integer

Range("A1").Select
Selection.End(xlDown).Select
Linhas = Selection.Row

For i = 1 To Linhas

Texto = Range("A" & i).Value

'Letras Minúsculas
LResult = Replace(Texto, "ã", "a")
LResult = Replace(LResult, "à", "a")
LResult = Replace(LResult, "é", "e")
LResult = Replace(LResult, "ê", "e")
LResult = Replace(LResult, "á", "a")
LResult = Replace(LResult, "õ", "o")
LResult = Replace(LResult, "ô", "o")
LResult = Replace(LResult, "ó", "o")
LResult = Replace(LResult, "ú", "u")
LResult = Replace(LResult, "í", "i")

'Letras Maiúsculas
LResult = Replace(LResult, "Ã", "A")
LResult = Replace(LResult, "À", "A")
LResult = Replace(LResult, "É", "E")
LResult = Replace(LResult, "Ê", "E")
LResult = Replace(LResult, "Á", "A")
LResult = Replace(LResult, "Õ", "O")
LResult = Replace(LResult, "Ô", "O")
LResult = Replace(LResult, "Ó", "O")
LResult = Replace(LResult, "Ú", "U")
LResult = Replace(LResult, "Í", "I")

Range("A" & i).Select
Range("A" & i).Value = LResult

Next i

End Sub

Postado

Caro braconius, Boa Tarde.

Como no Excel sempre há fiversas maneiras de fazer a mesma coisa aquí vai a minha contribuição.

Utilize uma FUNÇÃO

(Função definida pelo usuário)

ALT + F11

Insira um Módulo

Cole esta função

Function RetiraAcentos(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

RetiraAcentos = Texto

end if

end function

Function VerificaPalavra(atributo)

Dim i

Dim id

Dim Auxiliar

Dim Resultado

Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)

For i = LBound(Auxiliar) To Ubound(Auxiliar)

Resultado = Resultado & " " & RetiraAcentos(Auxiliar(i))

Next

VerificaPalavra = Trim(Resultado)

end function

Agora é só utilizar a nova função RetiraAcentos que está na categoria de Função definida pelo usuário na lista de funções.

A4 = Rápido, Móvel e Ótimo

A5 --> =RetiraAcentos(A4) --> rápido, Movel e Otimo

Era isto que você queria?

Espero ter ajduado.

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!