У меня есть список греческих слов в Excel. Некоторые ячейки являются точными дубликатами, другие точно такие же слова, но с ударением по-разному (на практике некоторые слова акцентированы, а некоторые полностью без ударения). Я хочу создать список только уникальных слов, не учитывая акцентуации.
Это возможно?
Я хотел бы показать метод, который поможет вам преобразовать ударные символы / слова в неакцентированные (как вы требовали в комментариях), а затем извлечь список уникальных символов / слов.
Вставьте этот код 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)),"")}
Вы получаете уникальный список не акцентированных слов, как я показал на снимке экрана.