Убрать дубли из текстовой строки можно с помощью вот такого макроса:
Sub DeleteDuplicatesFromString()
Dim c As Range, x
With CreateObject("scripting.dictionary")
For Each c In Selection
.RemoveAll
For Each x In Split(c)
.Item(x) = 0
Next
c = Join(.keys)
Next
End With
End Sub
Выделяете диапазон ячеек и запускаете макрос. По умолчанию в данном случае разделителем выступает пробел (то есть макрос удалит все дубли среди списка значений строки, разделенных пробелом). Если разделитель другой, то в макросе в функции Split(c) добавьте через запятую этот разделитель, например, Split(c, ",").
Скопировать текст в ячейке-вставить в ворд-выделить -вставка- преобразовать в таблицу с одним столбцом-перенести эту таблицу в эксель-выделить - удалить дубликаты