Значение содержится в массиве

[kipish_lp]

Здравствуйте! Подскажите, пожалуйста, как можно записать:
если значение ячейки "А1" не содержится в массиве "B1:B10", то...
Или наоборот, содержится, как удобней? Я знаю как равно, или не равно. А вот как содержится или не содержится...

[Serge 007]

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

Здравствуйте! Подскажите, пожалуйста, как можно записать:
если значение ячейки "А1" не содержится в массиве "B1:B10", то...
Или наоборот, содержится, как удобней? Я знаю как равно, или не равно. А вот как содержится или не содержится...

Да так же, равно, не равно...

А что получить-то в итоге надо?

[EducatedFool]

Вот вам 2 варианта:

Sub test1()
    ' если значение ячейки "А1" содержится в массиве "B1:B10"
    If [or(B1:B10=A1)] Then
        MsgBox """А1"" содержится в массиве ""B1:B10"""
    Else
        MsgBox """А1"" НЕ содержится в массиве ""B1:B10"""
    End If
End Sub

Sub test2()
    ' если значение ячейки "А1" не содержится в массиве "B1:B10"
    If [B1:B10].Find([A1], , , xlWhole) Is Nothing Then
        MsgBox """А1"" НЕ содержится в массиве ""B1:B10"""
    Else
        MsgBox """А1"" содержится в массиве ""B1:B10"""
    End If
End Sub

[vikttur]

СЧЕТЕСЛИ()
Например:
=ЕСЛИ(СЧЕТЕСЛИ(B1:B10;A1);условиеНЕ равноНУЛЮ;условиеРАВНОнулю)

[kipish_lp]

А что получить-то в итоге надо?

Да надо, чтобы на листе в определенной колонке если значение не содержится в "справочнике", то его удалить.
Как формулой-то, знаю, просто это оч. много данных, а формулы в ячейках долго рассчитываются. Вот и хотелось макросом. Макрос есть, а условия нет. Ну, теперь есть, спасибо.