Сравнение данных в ячейках

[Аббель]

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

Так и будем то там, то тут общаться?
Как использовать UDF - есть там в приёмах:
http://www.planetaexcel.ru/techniques/3/59/
смотрите в конце.

Для чего это?

Код в модуль, в ячейку пишем
=neprod(D2,F2)
В русской версии вероятно через ";".

[Hugo121]

Ну переписывать ту статью сюда думаю совершенно лишнее...
Alt+F11, нашли файл, insert-module, туда код, закрыли редактор.
Далее используете функцию из списка определённых пользователем.
Файл сохраняете с поддержкой макросов - xlsm/xlsb/2003 - xls.

[Аббель]

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

Ну переписывать ту статью сюда думаю совершенно лишнее...
Alt+F11, нашли файл, insert-module, туда код, закрыли редактор.
Далее используете функцию из списка определённых пользователем.
Файл сохраняете с поддержкой макросов - xlsm/xlsb/2003 - xls.

Мозг взрывается. Можно по шагам?

[Hugo121]

Это было по шагам.
Ещё более по шагам - сходите по ссылке на планету.

[Аббель]

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

Это было по шагам.
Ещё более по шагам - сходите по ссылке на планету.

Не появляется пункт "Определено пользователем". Так же не понял куда вставлять Код в модуль, в ячейку пишем
=neprod(D2,F2)
В русской версии вероятно через ";".

[Hugo121]

1. Открыли редактор VBA.
2. Нашли в списке файл (проект этого файла, да вообще можно любого, но лучше этого или personal ), встали мышью.
3. через меню добавили модуль (не форму, не модуль класса).
3. Скопировали в модуль код (поискали пустое окно модуля, туда и пишем).
4. Используем на листе.

[Аббель]

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

1. Открыли редактор VBA.
2. Нашли в списке файл (проект этого файла, да вообще можно любого, но лучше этого или personal ), встали мышью.
3. через меню добавили модуль (не форму, не модуль класса).
3. Скопировали в модуль код (поискали пустое окно модуля, туда и пишем).
4. Используем на листе.

Сломал себе пальцы и клавиатуру. Если вам не сложно, сделайте пожалуйста.

[IgorGO]

однако... см.вложение, там так написано:

Function Удалить(rg0 As Range, rg2 As Range, Optional Sep As String = ",") As String
  Dim i As Long, s As String, s2 As String
  s2 = rg2 & IIf(Right(rg2, 1) <> Sep, Sep, "")
  For i = 0 To UBound(Split(rg0, Sep))
    If InStr(s2, Split(rg0, Sep)(i) & Sep) = 0 Then s = s & Split(rg0, Sep)(i) & Sep
  Next
  Удалить = Left(s, Len(s) - 1)
End Function

[Аббель]

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

однако... см.вложение, там так написано:

Function Удалить(rg0 As Range, rg2 As Range, Optional Sep As String = ",") As String
  Dim i As Long, s As String, s2 As String
  s2 = rg2 & IIf(Right(rg2, 1) <> Sep, Sep, "")
  For i = 0 To UBound(Split(rg0, Sep))
    If InStr(s2, Split(rg0, Sep)(i) & Sep) = 0 Then s = s & Split(rg0, Sep)(i) & Sep
  Next
  Удалить = Left(s, Len(s) - 1)
End Function

Опять удаляет только последовательные данные

[Hugo121]

Вот найдите где лежит код тёзки - поместите РЯДОМ мой код:

Function neprod(no$, np$)
    Dim a, b, i&, ii&
    a = Split(no, ","): b = Split(np, ",")
    For i = 0 To UBound(a)
        For ii = 0 To UBound(b)
            If a(i) = b(ii) Then a(i) = Empty
        Next
    Next
    neprod = Replace(Application.Trim(Join(a, " ")), " ", ",")
End Function

Теперь можете использовать какую угодно.
Разница в работе в том, что моя на пустые ячейки пишет пусто, а Игоря пишет #VALUE!
Ну и у меня жестко прописана запятая, а у Игоря можно указать что угодно.