Oi gente, tudo bem?
Estou deixando aqui um breve tutorial do YouTube que a Juliana Mori me indicou pra resolver o seguinte problema:
Você abriu uma base de dados sobre todos os países reconhecidos pela ONU, mas a coluna de países foi preenchida sem padrão, então tem exemplos como Afeganistão e Afeganistao.
Se você está trabalhando só no Excel, dá pra criar uma função e retirar todos os acentos que possam estar em cada célula. É bem mais rápido do que usar a função de substituir os caracteres um por um.
Esse tutorial tirei desse vídeo no YouTube, feito pelo Eduardo Medeiros: https://www.youtube.com/watch?v=85isVXXZ0hQ
- Essa função só funciona na própria planilha onde você está trabalhando;
- Salve a planilha no formato “pasta de trabalho habilitada para macro do Excel” (mxls);
- Abra o Visual Basic (atalho ctrl+F11);
- Escolha Inserir > Módulo;
- Cole o seguinte texto na janela:
Function SemAcento(Caract As String)
Dim A As String
Dim B As String
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)
Caract = Replace(Caract, A, B)
Next
SemAcento = Caract
End Function
- Salve o módulo e feche o Visual Basic;
- De volta à planilha, digite em uma célula a seguinte função:
=SemAcento(CÉLULA)
- Selecione a célula em que você quer substituir o assunto;
- O mais indicado é criar uma coluna ao lado da coluna que você quer limpar, e arrastar a função até o final, para cobrir todas as linhas e não deixar nenhum acento sobrando.