Como substituir caracteres acentuados por caracteres normais no Excel?

Substituir caracteres acentuados por caracteres normais com VBA

Substituir caracteres acentuados por caracteres normais com Kutools para Excel

Para usuários experientes com o Microsoft Excel, usar uma macro VBA é uma maneira fácil de lidar com esse trabalho complicado.

1. Pressione as teclas Alt + F11 no Excel, e isso abrirá a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo, e cole a seguinte macro na Janela do Módulo.

Function StripAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
StripAccent = thestring
End Function

3. Em seguida, vá para uma célula em branco e cole a fórmula em uma célula: =CheckStringCHAR(InString), por exemplo, =CheckStringCHAR("ù"), ou =CheckStringCHAR(A2).

Notas:
(1) Seu Microsoft Visual Basic pode não reconhecer caracteres acentuados, se ele não suportar Unicode. Por exemplo, quando você cola o "š" no Visual Basic, pode obter "?". Se for assim, essa macro não estará disponível.
(2) Não substitui diretamente os caracteres acentuados nas strings da célula selecionada.

Exige muita habilidade e conhecimento para usar a macro VBA. E o método a seguir ajudará você a trabalhar mais facilmente com apenas alguns cliques. A ferramenta Substituir Caracteres Acentuados do Kutools para Excel possibilita substituir todos os tipos de caracteres acentuados por caracteres normais facilmente de uma só vez.

1. Selecione o intervalo no qual você substituirá todos os caracteres acentuados.

2. Clique Kutools > Texto > Substituir Caracteres Acentuados…, veja a captura de tela:

3. Em Substituir Caracteres Acentuados caixa de diálogo, clique no botão Selecionar Tudo para selecionar todas as regras de substituição, e clique no botão Ok para substituir todos os caracteres acentuados. Veja a captura de tela:

Notas:
(1) Se não houver alguns caracteres acentuados específicos que você deseja, você pode clicar no botão Adicionar Regra para adicionar suas próprias regras na caixa de listagem na caixa de diálogo Substituir Caracteres Acentuados acima.
(2) Você pode personalizar novas regras de substituição na caixa de diálogo Substituir Caracteres Acentuados.

Agora, você terá todos os caracteres acentuados nas strings do intervalo selecionado convertidos para caracteres normais imediatamente. Veja a captura de tela:

O recurso Substituir Caracteres Acentuados do Kutools para Excel pode substituir facilmente todos os tipos de caracteres acentuados por caracteres normais em toda a pasta de trabalho. Experimente Grátis!