Удаление повторяющегося текста в ячейке

[Святой Дьявол]

доброго времени суток! в excel имеется 30 ячеек с текстом, в каждой ячейке записано порядка 100 адресов (название улиц или название улиц и номер дома), текст из этих ячеек нужно собрать в одну, для этого использую функцию "СЦЕПИТЬ", но сразу возникает проблема дублирующихся адресов. Может быть кто нибудь сталкивался уже с такой проблемой и знает как удалить из ячейки дублирующийся текст?

[EducatedFool]

Прикрепите к сообщению пример файла.
Выделите цветом данные, подлежащие удалению.
Покажите на примере, что должно получиться.

[Святой Дьявол]

В ячейках B5:D5 находятся данные получаемые из других книг excel, в ячейке B11 объединяем данные из B5:D5, но как видим в B5:D5 есть повторяющиеся названия улиц (ул. Соревнования и пос. Химинститут), а в ячейке В11 требуется убрать повторяющиеся данные

[Святой Дьявол]

В ячейках B5:D5 находятся данные получаемые из других книг excel, в ячейке B11 объединяем данные из B5:D5, но как видим в B5:D5 есть повторяющиеся названия улиц (ул. Соревнования и пос. Химинститут), а в ячейке В11 требуется убрать повторяющиеся данные

[SAS888]

Посмотрите пример во вложении. В ячейке "B11" - пользовательская функция.

[Святой Дьявол]

Сообщение от SAS888

Посмотрите пример во вложении. В ячейке "B11" - пользовательская функция.

SAS888 спасибо, все работает
+1

[serj_spb]

Всем привет!
Появилась необходимость удалить одинаковые слова в одной ячейке.
Перерыл кучу всего, попробовал формулу представленную выше, ничего не получается.....пытался макрос написать, тож не получилось. Помогите чайнику!

[Hugo121]

Работает формула из примера выше - только слова должны быть разделены запятыми.

[Hugo121]

Подкрутил на любой разделитель:

Function Uniq(Диапазон As Range, sep) As String

    Dim s As String, i As Integer, x As New Collection, Cell As Range, a
    For Each Cell In Диапазон: s = s & sep & " " & Cell.Value: Next
    If s = "" Then Exit Function
    s = Right$(s, Len(s) - 2): a = Split(s, sep): s = ""
    For i = LBound(a) To UBound(a)
        On Error Resume Next: x.Add Trim(a(i)), Trim(CStr(a(i)))
        If Err = 0 Then s = s & sep & " " & Trim(a(i)) Else On Error GoTo 0
    Next: Uniq = Right$(s, Len(s) - 2)

End Function

[serj_spb]

Подсвечивает строки со словом Диапазон, как правило его указать?
Приложил файл с примером, пока ничего не получается (