怎样判断一个单元格里是否包含某个数字.一个单元格里有若干数字,由换行符隔开.数字有两位数、三位数、四位数.在VBA运行时往往出现错误.例：单元格"2345123412562355"里,如何准确判断出

Question

怎样判断一个单元格里是否包含某个数字.
一个单元格里有若干数字,由换行符隔开.数字有两位数、三位数、四位数.在VBA 运行时往往出现错误.例：单元格"2345 1234 1256 2355 "里,如何准确判断出他不包含数字55 .我用InStr判断,结果是错误的.

Answer 1

Sub chiefzjh()
Dim TF As Boolean, mArr, m
TF = False
mArr = Split([a1], Chr(10))
For Each m In mArr
If Val(m) = 55 Then TF = True: Exit For
Next m
MsgBox TF
End Sub