Função Excel Tirar Acento

Para criar uma função que remove os acentos das palavras em uma célula do Excel, siga as etapas abaixo:

1. Clique na guia "Desenvolvedor" e selecione "Visual Basic" para abrir o editor do VBA.
2. Selecione "Inserir" e clique em "Módulo".
3. Digite o seguinte código na janela do módulo:

Function TirarAcento(palavra As String) As String Dim acentos(7) As String Dim newPalavra As String Dim i As Integer acentos(0) = "á" acentos(1) = "é" acentos(2) = "í" acentos(3) = "ó" acentos(4) = "ú" acentos(5) = "â" acentos(6) = "ê" acentos(7) = "ô" newPalavra = palavra For i = 0 To 7newPalavra = Replace(newPalavra, acentos(i), Mid("aeiouaeo", i + 1, 1))newPalavra = Replace(newPalavra, UCase(acentos(i)), Mid("AEIOUAE0", i + 1, 1)) Next TirarAcento = newPalavra End Function

4. Clique em "Arquivo" e selecione "Salvar como".
5. Escolha um nome para o arquivo e selecione "Pasta de Trabalho do Excel" como o tipo de arquivo.
6. Feche o editor do VBA e volte para a planilha do Excel.
7. Use a fórmula "=TirarAcento(Célula)" para remover os acentos de uma célula específica.

A função acima usa uma matriz de acentos e sua posição para substituí-los por suas respectivas vogais sem acento. Ele também trata letras maiúsculas e minúsculas. Por exemplo, a palavra "maçã" seria convertida em "maca".