Excel: Acentos

[braconius]

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!

[diegobh]

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

[Mazzaropi]

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.

[braconius]

Muito obrigado amigos diegobh e Mazzaropi!

Era exatamento isso que eu precisava!

Muito obrigado a todos!

[Flavio Soares]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.