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 = cadenaEnd Function |
REFERENCIA:
https://exceltotal.com/como-quitar-acentos-en-excel/