Função VBA para Remoção de Acentos

Esta semana estive trabalhando em um análise de dados, onde eu precisava comparar duas lista de valores. Acabei me deparando com a situação que uma lista as palavras estavam escritas com acentuação e na outra não. Infelizmente, no Excel, não temos uma função nativa que remove acentos.

Para isso tive que recorrer a uma função personalizada, mais conhecidas como UDF (User-Defined Function).

As UDF’s são funções criadas no VBA e que também podem ser utilizadas numa planilha de dados. O código é bem simples. Veja abaixo:

Option Explicit

Function RemoveAcentos(sString As String) As String
    
    Dim sAcentos As String
    Dim sSemAcentos As String
    Dim sTemp As String
    Dim i As Long
 
    'Liste nesta variável todos os acentos possíveis
    sAcentos = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"
     
    'Letras sem acentuação correspondentes para substituição
    sSemAcentos = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"
     
    'Armazena em sTemp a string recebida
    sTemp = sString
     
    'Loop que percorrerá todas as letras da variável 'sAcentos',
    'subtituindo pelo caractere correspondente em 'sSemAcentos'
    For i = 1 To Len(sAcentos)
        sTemp = Replace(sTemp, Mid(sAcentos, i, 1), Mid(sSemAcentos, i, 1))
    Next i
     
    'Retorna a nova string
    RemoveAcentos = sTemp
     
End Function

O código já está comentado. Mas basicamente consiste em duas strings do mesmo tamanho, contendo os acentos em uma, e as correspondências sem acentos na outra string.

Depois é feito um loop For percorrendo cada uma das letras acentuadas, e fazendo uma substituição pelo caractere correspondente usando a função Replace.

For i = 1 To Len(sAcentos)
    sTemp = Replace(sTemp, Mid(sAcentos, i, 1), Mid(sSemAcentos, i, 1))
Next i