Из ядра запросов надо убрать минус-слова

[IgorGO]

см.вложение

[Hugo121]

Макрос для уже открытого любого файла:
упс, перепутал, наоборот нужно отбирать, вот так:

Sub tt()
    Dim a(), b(), i&, ii&, iii&, flag As Boolean
    a = Range([a1], Cells(Rows.Count, "A").End(xlUp)).Value
    b = Range([b1], Cells(Rows.Count, "b").End(xlUp)).Value
    ReDim c(1 To UBound(a), 1 To 1)
    For i = 1 To UBound(a)
        flag = False
        For ii = 1 To UBound(b)
            If a(i, 1) Like "*" & b(ii, 1) & "*" Then
                flag = True
                Exit For
            End If
        Next
        If flag Then
            iii = iii + 1
            c(iii, 1) = a(i, 1)
        End If
    Next
    [a1].Resize(UBound(c), 1) = c
End Sub

[Дашко]

Спасибо большое!