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

[IgorGO]

например так:

sub xyz
  cells(1,1) = uniq(cells(1,1), " ")
end sub

[serj_spb]

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

например так:

sub xyz
  cells(1,1) = uniq(cells(1,1), " ")
end sub

Добавил функцию и макрос.
Если применить макрос к одной ячейке ругается на строчку из функции -
Next: Uniq = Right$(s, Len(s) - 2)

...не совсем понял как использовать...можно показать на моем примере в предыдущем посту?

[Hugo121]

Файл не покажу - но я написал в ячейке так:

=Uniq(B19," ")

а в B19 слова
qwerty fgh fgh qwerty

[serj_spb]

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

Файл не покажу - но я написал в ячейке так:

=Uniq(B19," ")

а в B19 слова
qwerty fgh fgh qwerty

если использовать такую формулу со своим номером ячейки, говорит, что в формуле ошибка (

[Hugo121]

Вероятно у Вас разделитель не запятая. Ну это у кого как - в общем случае используйте мастер - не ошибётесь.

[serj_spb]

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

Вероятно у Вас разделитель не запятая. Ну это у кого как - в общем случае используйте мастер - не ошибётесь.

Может я не правильно объяснил, что мне нужно....
Есть столбец, в каждой ячейке текстовая фраза.
Еще есть одна ячейка(единая для всех фраз), в которой много слов, разделенных пробелами.

Цель: удалить из набора слов те слова, из которых состоит отдельно взятая фраза.

[Hugo121]

Вот поэтому (чтоб объяснить правильно) обычно и нужно показывать в файле - вот это есть, это нужно.
Судя по этому объяснению, Вам нужно совсем не то, о чём эта тема!

P.S. А тот приложенный позже пример работает, если формулу писать мастером, и в ячейку с нужным форматом и в лист с нужным стилем ссылок:
=Uniq(RC[-2]:RC[-1]," ")
Результат "стул стол кравать диван кровать окно дерево дверь комната"
Но это ведь не то что нужно, так ведь?

[serj_spb]

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

Вот поэтому (чтоб объяснить правильно) обычно и нужно показывать в файле - вот это есть, это нужно.
Судя по этому объяснению, Вам нужно совсем не то, о чём эта тема!

P.S. А тот приложенный позже пример работает, если формулу писать мастером, и в ячейку с нужным форматом и в лист с нужным стилем ссылок:
=Uniq(RC[-2]:RC[-1]," ")
Результат "стул стол кравать диван кровать окно дерево дверь комната"
Но это ведь не то что нужно, так ведь?

Немного не то. Я думал сделать следующим образом. Формулой сцепить текст из двух ячеек в одну( получается ячейка со словами, разделенными пробелами). А дальше хотел удалить все слова, которые повторяются 2 раза и более.
Может есть идеи как это реализовать ?

[Hugo121]

Можно и так сделать, а можно и иначе.
Думаю проще именно иначе - перебирать все слова, и те, которых нет в списке "критериев", собирать в строку-результат.
Если я понял что нужно - файла с есть/нужно ведь так и нет пока...

P.S.
Что-то вроде

Dim dic As Object

Function nodup(s, krit)
    Dim w
    If dic Is Nothing Then
        Set dic = CreateObject("Scripting.Dictionary")
        dic.comparemode = 1
        For Each w In Split(krit)
            dic(w) = 0&
        Next
    End If

    For Each w In Split(s)
        If Not dic.exists(w) Then out = out & " " & w
    Next

    nodup = Mid(out, 2)
End Function

Sub pereinit()
    Set dic = Nothing
    Application.Calculate
End Sub

Только если менять критерии - нужно или переокрывать файл, или отдельной процедурой переинициализировать словарь (Sub pereinit()).
Зато должно быстро работать на большом количистве ячеек (т.к. критерии не нужно каждый раз перезапоминать).

[serj_spb]

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

Можно и так сделать, а можно и иначе.
Думаю проще именно иначе - перебирать все слова, и те, которых нет в списке "критериев", собирать в строку-результат.
Если я понял что нужно - файла с есть/нужно ведь так и нет пока...

сделал три фразы для примера.