當前位置:成語大全網 - 新華字典 - excel vba 字典 Exists 我的錯誤出在哪裏?

excel vba 字典 Exists 我的錯誤出在哪裏?

Sub?查詢()

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