☰

Excel: cree una lista de celdas únicas, ignorando los acentos

tag-icon • tag-icon microsoft-excel
Excel: cree una lista de celdas únicas, ignorando los acentos

Tengo una lista de palabras griegas en Excel. Algunas de las celdas son duplicados exactos, otras son exactamente la misma palabra, pero acentuadas de manera diferente (en la práctica, algunas palabras están acentuadas y otras no están acentuadas). Quiero crear una lista solo de palabras únicas, sin tener en cuenta la acentuación.

es posible?

Respuesta1

Me gustaría mostrar el método que le ayudará a convertir caracteres/palabras acentuadas en no acentuadas (como lo has exigido a través de comentarios) luego extrae la lista de caracteres/palabras únicos.

ingrese la descripción de la imagen aquí

Inserte este código VBA como Módulo con la hoja de trabajo requerida. Esto convertirá palabras/caracteres acentuados en valores no acentuados.

Function ChangeAccent(thestring As String)
Dim A As String * 1
Dim B As String * 1
Dim i As Integer
Const AccChars= "ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
Const RegChars= "SZszYAAAAAACEEEEIIIIDNOOOOOUUUUYaaaaaaceeeeiiiidnooooouuuuyy"
For i = 1 To Len(AccChars)
A = Mid(AccChars, i, 1)
B = Mid(RegChars, i, 1)
thestring = Replace(thestring, A, B)
Next
ChangeAccent = thestring
End Function

Cómo utilizar la función:

Supongo que tiene una lista de palabras acentuadas en la columna A.

Entonces escriba esta fórmula en la celda B2, termine con Enter y complétela:

=ChangeAccent(A2)

En la celda C2 escriba esta fórmula matricial, finalice con Ctrl+Shift+Enter y luego complétela.

{=IFERROR(INDEX($B$2:$B$11, MATCH(0, COUNTIF($C$1:C1, $B$2:$B$11), 0)),"")}

Obtiene una lista única de palabras sin acentos, como lo mostré en la captura de pantalla.

información relacionada