Substitua caracteres acentuados por caracteres regulares com VBA

Substitua caracteres acentuados por caracteres regulares com Kutools para Excel

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

1. Mantenha pressionada a outro + F11 chaves no Excel, e abre o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole a macro a seguir no Janela 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).

Observações:
(1) Seu Microsoft Visual Basic pode não reconhecer caracteres acentuados, se não oferecer suporte a Unicode. Por exemplo, quando você cola o "š" no Visual Basic, pode obter "?". Nesse caso, esta macro não está disponível.
(2) Não substitui caracteres acentuados nas cadeias de caracteres da célula selecionada diretamente.

Requer muitas habilidades e conhecimento para usar o macro VBA. E o método a seguir o ajudará a trabalhar mais facilmente com apenas alguns cliques. A ferramenta Substituir caracteres acentuados do Kutools for Excel torna possível substituir todos os tipos de caracteres acentuados por caracteres regulares 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. In Substituir caracteres acentuados caixa de diálogo, clique no botão Selecionar todos para selecionar todas as regras de substituição e clique no botão Ok para substituir todos os caracteres acentuados. veja a imagem:

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

Agora você terá todos os caracteres acentuados em strings do intervalo selecionado convertidos em caracteres regulares imediatamente. Veja a imagem:

A Substituir caracteres acentuados recurso do Kutools para Excel pode substituir facilmente todos os tipos de caracteres acentuados por caracteres regulares em toda a pasta de trabalho. Faça um teste grátis!