Substituir acentos no Excel

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

 

Video