оператор split

[IgorGO]

Леша, стандартно - на высоте! удачно дополнено.
Но идея slan - это отрыв башки. Вот же уловил ассоциацию.
а то крапаешь тут for ... next - рутина, за себя неудобно.

(как бы в спамеры не попасть, извините, но эмоции меня захлестнули)

поблагодарим еще Bape}l{kу, вопрос изначально требовал творческого подхода для получения универсального решения.

[nerv]

еще такой вариант

Function io(j As String, i As Integer) As Boolean
Dim x, z
For Each x In Split(j, ",")
    z = Split(x, "-"): If i = z(0) Then io = True: Exit Function
    If UBound(z) = 1 Then If i >= z(0) And i <= z(1) Then io = True: Exit Function
Next
End Function

Sub ji()
MsgBox io("1-9, 97, 99", 101)
MsgBox io("1-9, 97, 99", 7)
End Sub

скажите кто-нибудь что это не круто!!! вот это подход!
как нестандартно и как красиво и органично привлечен Excel к решению!

Не согласен. На стандартно - да, но не круто. А если алгоритм придется перенести в другую объектную среду или перевести на другой язык? К тому же Intersect - штука тормознутая.

p.s.: Свой вариант аксиомой не считаю.

[EducatedFool]

Сообщение от Казанский

тогда уж так

Function is_in1(s$, n&) As Boolean
is_in1 = Not Intersect(Range("A" & Replace$(Replace$(Replace$(s, " ", ""), ",", ",A"), "-", ":A")), Range("A" & n)) Is Nothing
End Function

Круто!
Ни за что не додумался бы до такого решения.