Monday, September 2, 2019

CÓMO QUITAR ACENTOS EN EXCEL

Una función muy útil y fácil de usar:

1
2
3
4
5
6
7
8
9
10
11
Function QUITARACENTOS(cadena As String) As String
  Dim posicion As Long
  Const conAcento As String = "áéíóúÁÉÍÓÚ"
  Const sinAcento As String = "aeiouAEIOU"
   
  For i = 1 To Len(conAcento)
    cadena = Replace(cadena, Mid(conAcento, i, 1), Mid(sinAcento, i, 1))
  Next i
   
  QUITARACENTOS = cadena
End Function

REFERENCIA:
https://exceltotal.com/como-quitar-acentos-en-excel/