vba字典用法。 初學vba，壹直不懂字典，想學習字典相關的。越詳細越來好。 比如有兩列數據，要怎

For i& = 1 To UBound(ar)

If d.Exists(ar(i, 1)) Then

ar(i, 1) = d(ar(i, 1))

Else

ar(i, 1) = "0"

End If

Next

修改為：

For i& = 1 To UBound(ar)

v=ar(i,1)

match_result="0"

for each k in d.Keys

if instr(v,k) then match_result=d(k)

next k

ar(i, 1) = match_result

Next

打字不易，如滿意，望采納。