Answers for "remove acentos excel"

remove acentos excel

'ALT+F11 -> Inserir Módulo

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