Set?d?=?CreateObject("Scripting.Dictionary")
For?i?=?1?To?[a65536].End(3).Row
d(k)?=?Cells(i,?1).Value'這裏的k沒有賦值啊？所以，這裏k應該是null
Next
k?=?Cells(10,?5).Value
If?d.Exists(k)?Then
MsgBox?"有！"
Else
MsgBox?"沒有！"
End?If
End?Sub