Substituir acentos no Excel
Substituir acentos no Excel através de uma função em VBA que substitui todas as letras acentuados pelas normais.A função abaixo deve ser colocada num modulo para estar acessível para todo o Livro( Workbook)
Código da Função:
Option Explicit
Function SubstituirAcentos(strCelula As String) As String
Dim i As Long
Dim strAcentos As String
Dim strSemAcentos As String
'Letras com acentos
strAcentos = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåæçèéêëìíîïðñòóôõöùúûüýÿ"
'Letras sem acentos (atenção à posição)
strSemAcentos = "AAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaaceeeeiiiionooooouuuuyy"
'Encontrar letras com acentos e substituir pela letra correspondente sem acentos
For i = 1 To Len(strAcentos)
strCelula = Replace(strCelula, Mid(strAcentos, i, 1), Mid(strSemAcentos, i, 1))
Next i
'Resultado
SubstituirAcentos = strCelula
End Function