Народ кто может помочь с макросом, который удалит повторяющиеся слова в ячейки. На форуме много информации про это, но нет ни одного вопроса и готового макроса который удалял бы дубли в ячейках в которых применен перенос слов (alt+enter)


Вот макрос из другой аналогичной темы, но тут в ячейках разделение с помощью запятой,а у меня переносом alt+enter (Chr10)

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Sub Delete_Duplicates()    Dim col As New Collection    Dim i As Integer    On Error Resume Next    For Each cell In Selection        Set col = Nothing        sResult = ""                'делим текст в ячейке по пробелам        arWords = Split(WorksheetFunction.Trim(cell.Value), " ")                'проходим в цикле по всем получившимся словам        For i = LBound(arWords) To UBound(arWords)            Err.Clear                           'сбрасываем ошибки            col.Add arWords(i), arWords(i)      'пробуем добавить слово в коллекцию            'если ошибки не возникает, то это не повтор - добавляем слово к результату            If Err.Number = 0 Then sResult = sResult & " " & arWords(i)        Next i        cell.Value = Trim(sResult)      'выводим результаты без повторов    Next cell End Sub