Tirar todos os acentos de uma vez dos nomes na tabela do Excel

Question

Pessoal,

Se tenho uma tabela com mais de 15 mil nomes e quero que numa determinada matriz todos os acentos das palavras desapareçam.

Como faço para  que iso ocorra?

grato

---

tack så mycket

Answer 1

Substituir não funciona?

Answer 2

Poderia criar uma macro, onde executaria o Substituir para cada acento, por exemplo, no primeiro comando seria á por a, depois Á por A, depois â por a, depois ã por a, e assim sucessivamente. É claro que deve existir outra forma melhor e menos trabalhosa, mas acho que assim ficaria pronto para uma segunda ou terceira planilha que precisasse do mesmo procedimento.

---

Fernando Nishimura de Aragão

Se a resposta foi útil, clique no ícone ao lado para avaliar positivamente o participante. Obrigado.

Answer 3

No excel aperte ALT + F11 e cole o script abaixo.

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

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 & " " & TiraAcento(Auxiliar(i))

Next

VerificaPalavra = Trim(Resultado)

End Function

para retirar os acentos use a função " =TiraAcento " igual ao uso das outras funções.

Answer 4

No excel aperte ALT + F11 e cole o script abaixo.

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

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 & " " & TiraAcento(Auxiliar(i))

Next

VerificaPalavra = Trim(Resultado)

End Function

para retirar os acentos use a função " =TiraAcento " igual ao uso das outras funções.

Bem legal a ideia, mas nesse caso é mais interessante utilizar o botao Localizar e substituir.

Answer 5

Conforme comentei antes, existem formas mais simples para substituição, e criando uma macro, você pode re-utilizar nas futuras planilhas. Aqui está uma sugestão (para ser colada no seu Editor VBA):

Sub MacroSubstituindoAcentos()

Cells.Replace What:="é", Replacement:="e", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="É", Replacement:="E", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="á", Replacement:="a", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Cells.Replace What:="Á", Replacement:="A", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

End Sub

Como se pode observar, basta copiar a linha Á / á e adicionar antes do End Sub para as outras acentuações que deseja remover.

Para executar a macro, acesse Ferramentas, Macro, selecione a MacroSubstituindoAcentos e mande Executar.

---

Fernando Nishimura de Aragão

Se a resposta foi útil, clique no 'triângulo verde' ao lado para avaliar positivamente o participante. Obrigado.