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

[Hugo121]

Выше дописал - на Вашем примере проверить сейчас некогда...

[serj_spb]

Сообщение от 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()).
Зато должно быстро работать на большом количистве ячеек (т.к. критерии не нужно каждый раз перезапоминать).

Объясните, пожалуйста, как теперь этим пользоваться.
я добавил в файл функцию и макрос. Что делать дальше не понимаю.

[Hugo121]

Ага, так список слов для каждой строки свой! Тогда код такой (макрос перезагрузки словаря не нужен):

Function nodup(s, krit)
    Dim w, dic As Object, out$
    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

А в ячейку пишите

=nodup(B2,A2)

или какой там у Вас разделитель аргументов - не могу выложить файл...

[serj_spb]

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

=nodup(B2,A2)
или какой там у Вас разделитель аргументов - не могу выложить файл...

прописал в ячейку столбца "результат" - =nodup(RC[-2], RC[-1] )
выдал ошибку формулы.
использовал выложенный ранее файл

[Hugo121]

Так формат ячеек сделайте по умолчанию - в текстовом формате ничего никогда работать не будет!

[serj_spb]

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

Так формат ячеек сделайте по умолчанию - в текстовом формате ничего никогда работать не будет!

все используемые ячейки сделал в формате - общий.
ввожу формулу =nodup( RC[-1], RC[-2])
первую ячейку в формуле выделяет синим, при нажатии enter ничего не происходит.

[Hugo121]

По моему,
=nodup(RC[-2], RC[-1] )
и
=nodup(B2,A2)
совершенно зеркально противоположные аргументы.
Так держаться за R1C1 - ваше право, но я такой стиль не использую.

[serj_spb]

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

По моему,
=nodup(RC[-2], RC[-1] )
и
=nodup(B2,A2)
совершенно зеркально противоположные аргументы.
Так держаться за R1C1 - ваше право, но я такой стиль не использую.

как перейти на ваш стиль? я просто щелкаю по ячейке и автоматически проставляется такое значение.

[Hugo121]

В настройках галка есть. Не знаю какой у Вас Эксель, в 2003 это tools-options-general-R1C1 reference style

[serj_spb]

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

В настройках галка есть. Не знаю какой у Вас Эксель, в 2003 это tools-options-general-R1C1 reference style

Убрал эту опцию. Ввожу формулу. Выделяется первая ячейка в формуле, при нажатии enter формулу не принимает. Симтомы те же.