Vba字典分配方法

對於我來說。= 1至下界(ar)

如果d .存在(ar(i，1))，則

ar(i，1) = d(ar(i，1))

其他

ar(i，1) = "0 "

如果…就會結束

然後

修訂為:

對於我來說。= 1至下界(ar)

v=ar(i，1)

match_result="0 "

對於d鍵中的每個k

如果instr(v，k)那麽match_result=d(k)

下壹個k

ar(i，1) =匹配結果

然後

打字不容易。如果妳滿意，請采納。