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

[KOSTIK1]

Всем доброе утро!
Прошу помощи в написании формулы для всплывающего списка, куда должны попасть значения которых нет в Диапазоне2.
То есть, Диапазон1-Диапазон2=ЗначениеВВсплывающемСписке. Пересмотрел много советов в инете, но как внести разницу в список, так и не нашёл. Спасибо заранее.

[staniiislav]

Файлик со значениями нарисуйте

[KOSTIK1]

Вот файлик.

[KOSTIK1]

Может есть у кого какая-либо идея?

[vikttur]

Идея есть: извлечение уникальных записей в диапазон на листе и формирование списка по этому диапазону.

[R Dmitry]

Sub Test()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim sCon$, StrSql$
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
sCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ThisWorkbook.FullName _
& ";Extended Properties=""Excel 8.0;IMEX=1;HDR=No"";"
cn.Open sCon
If Not cn.State = 1 Then Exit Sub
StrSql = "SELECT a.F1" _
& " FROM [DIAP1] as a LEFT JOIN [DIAP2] AS b ON a.F1 = b.F1" _
& " WHERE b.F1 Is Null"
rs.Open StrSql, cn, adOpenKeyset, adLockPessimistic
Cells(2, 10).CopyFromRecordset rs
rs.Close:  cn.Close
Set cn = Nothing: Set rs = Nothing
End Sub

Примерно так можно извлечь уникальные

[kuklp]

Вариант:

Sub www()
    Dim x As Range, s$, i&, c As Range
    Set x = [a2:b20]: [n1].CurrentRegion.Clear
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
        For Each c In x.Cells
            If c <> "" Then If Not .Exists(c) Then .Item(c) = c
        Next
        [n1].Resize(.Count) = Application.Transpose(.items)
    End With
    Sheets(1).[c2:c22].Validation.Delete
    Sheets(1).[c2:c22].Validation.Add Type:=3, Formula1:="=" & [n1].CurrentRegion.Address
End Sub

[KOSTIK1]

Спасибо kuklp, R Dmitry и vikttur, но мне желательно формулой. На листе уже есть два диапазона - DIAP1 и DIAP2 - если возможно использовать их.

[Hugo121]

Мне кажется, что Сергей напутал.
Нужно сперва заполнить словарь из B, затем проверить по словарю A.
И те значения, которых нет в словаре, отобрать в массив, который потом дать списку проверки.
Но т.к. ТС молчит по этому поводу - может я и ошибаюсь...
Хотя какая разница, раз формула нужна

[kuklp]

Напутал. Но увидев ответ от Сегодня 17:08, исправлять не стал.