Excel: crie uma lista de células únicas, ignorando os acentos

Question

Eu tenho uma lista de palavras gregas no Excel. Algumas das células são duplicatas exatas, outras são exatamente a mesma palavra, mas acentuadas de forma diferente (na prática, algumas palavras são acentuadas e algumas são completamente não acentuadas). Quero criar uma lista apenas das palavras únicas, desconsiderando a acentuação.

Isso é possível?

    

Answer 1

Eu gostaria de mostrar o método que irá ajudá-lo a converter caracteres / palavras acentuados em não-acentuados ( como você exigiu através de comentários ) e extrair a lista de caracteres / palavras únicas .

InsiraestecódigoVBAcomomódulocomaplanilhanecessária.Issoconverterápalavras/caracteresacentuadosemvaloresnãoacentuados.

FunctionChangeAccent(thestringAsString)DimAAsString*1DimBAsString*1DimiAsIntegerConstAccChars="ŠŽšžŸÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÐÑÒÓÔÕÖÙÚÛÜÝàáâãäåçèéêëìíîïðñòóôõöùúûüýÿ"
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

Como usar a função:

Estou assumindo que você tem uma lista de palavras acentuadas na Coluna A.

Portanto, escreva esta fórmula na célula B2, termine com Enter e preencha:

=ChangeAccent(A2)

Na célula C2, escreva essa fórmula de matriz, termine com Ctrl + Shift + Enter e preencha-a.

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

Você recebe uma lista exclusiva de palavras não acentuadas, conforme mostrado na captura de tela.