Função para remover acentos no Excel

Para criar uma nova função, que remove acentos no Excel, pressione em seu teclado ALT + F11.
Surgirá uma nova janela (editor Visual Basic). No menu  acesse INSERIR/MÓDULO, e cole o texto abaixo:

Function TiraAcento(Palavra)

CAcento = "àáâãäèéêëìíîïòóôõöùúûüÀÁÂÃÄÈÉÊËÌÍÎÒÓÔÕÖÙÚÛÜçÇñÑ"

SAcento = "aaaaaeeeeiiiiooooouuuuAAAAAEEEEIIIOOOOOUUUUcCnN"

Texto = ""

    if Palavra <> "" then

        For X = 1 to Len(Palavra)

            Letra = mid(Palavra,X,1)

            Pos_Acento = inStr(CAcento,Letra)

                if Pos_Acento > 0 then

                    Letra = mid(SAcento,Pos_Acento,1)

                end if

            Texto = Texto & Letra

        next

        TiraAcento = Texto

    end if

end function

Function VerificaPalavra(atributo)

Dim i

Dim id

Dim Auxiliar

Dim Resultado

Auxiliar = Split(Atributo, " ", - 1, vbBinaryCompare)

For i = LBound(Auxiliar) To Ubound(Auxiliar)

    Resultado = Resultado & " " & TiraAcento(Auxiliar(i))

Next

VerificaPalavra = Trim(Resultado)

end function