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.

Substituir Acentos no Excel

 

A função abaixo deve ser colocada num modulo para estar acessível para todo o Livro( Workbook)

Substituir Acentos no Excel - VBA

Código da Função

  1. Option Explicit
  2. Function SubstituirAcentos(strCelula As String) As String
  3.     Dim i As Long
  4.     Dim strAcentos As String
  5.     Dim strSemAcentos As String
  6.     ‘Letras com acentos
  7.     strAcentos = "ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåæçèéêëìíîïðñòóôõöùúûüýÿ"
  8.     ‘Letras sem acentos (atenção à posição)
  9.     strSemAcentos = "AAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaaceeeeiiiionooooouuuuyy"
  10.     ‘Encontrar letras com acentos e substituir pela letra correspondente sem acentos
  11.     For i = 1 To Len(strAcentos)
  12.         strCelula = Replace(strCelula, Mid(strAcentos, i, 1), Mid(strSemAcentos, i, 1))
  13.     Next i
  14.     ‘Resultado
  15.     SubstituirAcentos = strCelula
  16. End Function

 

Video

 

Gostou? Partilhe, não custa nada 🙂Share on FacebookShare on Google+Tweet about this on TwitterShare on TumblrShare on LinkedInEmail this to someone

Deixe uma resposta