Разница двух диапазонов в список.

[KOSTIK1]

Прошу прощения за молчание.
Может возможно сделать функцию на основе предложенных макросов?

[Казанский]

Функцию можно создать. Код модуля:

Dim dc As Object

Function ListDiff(a As Range, b As Range)
Dim x
If dc Is Nothing Then Set dc = CreateObject("Scripting.Dictionary")
On Error Resume Next
With dc
    .RemoveAll
    .CompareMode = 1
    For Each x In a.Value
        If x <> "" Then .Item(x) = Empty
    Next
    For Each x In b.Value
        If x <> "" Then .Remove x
    Next
    ListDiff = Join(.keys, ",")
End With
End Function

А вот тспользовать ее в проверке у меня не получилось
Даже через имя. Хотя, говорят, можно: http://www.planetaexcel.ru/forum.php?thread_id=26474

[KOSTIK1]

Спасибо Казанский за вариант, но нет ли ошибки в этой строке:

ListDiff = Join(.keys, ",")

Заменив на:

ListDiff = Join(.Key, ",")

формула введенная в ячейку стала показывать "0".

[kuklp]

А почему Key? Можно было девичью фамилию тещи вписать:-)
О работе со словарями и коллекциями здесь:
http://www.excelworld.ru/forum/3-313-1

[KOSTIK1]

Спасибо за ссылки kuklp, только они мне не очень помогли, т.к. я это дело пока только осваиваю.
По поводу:

Можно было девичью фамилию тещи вписать:-)

раз говорите что "можно", то в следующий раз начну пробовать с перечислением родственников, авось поможет, а нет, буду писать сюда.

[KOSTIK1]

Уважаемые программисты, прошу прощения, но своими силами не справляюсь!
Может кто поможет?