Полу-VBA :)
Вариант решения с помощью функции пользователя и использования в ней словарей.
В общем модуле разместить код:
Function DelDupl(r As Range) As String
Dim aSpl, txt
aSpl = Split(r, " ")
With CreateObject("Scripting.Dictionary")
For Each txt In aSpl: .Item(txt) = 0&: Next txt
DelDupl = Join(.keys, " ")
End With
End Function
В ячейку строки с данными вписать формулу:
=DelDupl(A4)
Протянуть по строкам. При желании выделить диапазон строк, копировать, Вставить_как_значения
Примечание: на MAC'е не применять, он со словарями не работает.
' --------------
Совсем без VBA и ручного вмешательства
Вариант1. Проще и понятнее.

а) Разбиваем по ячейкам. Формула в D4 (копируется в диапазон D:M):
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&$A4;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A1)*99;99))
б) Удаляем повторы. Формула в N4 (копируется в диапазон N:W):
=ЕСЛИ(ПОИСКПОЗ(D4;$D4:$M4;)=СТОЛБЕЦ(A1);D4;"")&" "
в) Показываем результат. Формула в B4 (копируется в столбец B):
=СЖПРОБЕЛЫ(N4&O4&P4&Q4&R4&S4&T4&U4&V4&W4)
Вариант2. Формула сложнее и непонятнее )

а) Разбиваем по ячейкам и удаляем повторы. Формула в D4 (копируется в диапазон D:M):
=ЕСЛИ(СЧЁТЕСЛИ($C4:C4;СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&$A4;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A1)*99;99))&" ");"";СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&$A4;" ";ПОВТОР(" ";99));СТОЛБЕЦ(A1)*99;99))&" ")
б) Показываем результат. Формула в B4 (копируется в столбец B):
=СЖПРОБЕЛЫ(D4&E4&F4&G4&H4&I4&J4&K4&L4&M4)
Вариант3. Одной формулой.
Практически невозможен, т.к. нужно сздавать в памяти массивы, а текстовые функции не умеют работать в формулах массива.