☰

Excel: создайте список уникальных ячеек, игнорируя акценты

tag-icon • tag-icon microsoft-excel
Excel: создайте список уникальных ячеек, игнорируя акценты

У меня есть список греческих слов в Excel. Некоторые ячейки являются точными дубликатами, другие представляют собой точно такое же слово, но с разным ударением (на практике некоторые слова с ударением, а некоторые вообще без ударения). Я хочу создать список только уникальных слов, игнорируя ударение.

Это возможно?

решение1

Я хотел бы показать метод, который поможет вам преобразовать ударные символы/слова в безударные (как вы и требовали в комментариях) затем извлечь список уникальных символов/слов.

введите описание изображения здесь

Вставьте этот код VBA как Модуль с требуемым рабочим листом. Это преобразует акцентированные слова/символы в неакцентированные значения.

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

Как использовать функцию:

Я предполагаю, что у вас есть список слов с ударением в столбце А.

Итак, напишите эту формулу в ячейке B2, нажмите Enter и заполните ее:

=ChangeAccent(A2)

В ячейке C2 напишите эту формулу массива, завершите ее нажатием Ctrl+Shift+Enter, затем заполните ее.

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

Вы получите уникальный список слов без ударения, как я показал на снимке экрана.

Связанный контент