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