Vba詞典附加值

對於i & amp= 1到下界（ar）

如果d .存在（ar（I，1）），則

ar（I，1）= d（ar（I，1））

其他

ar（I，1）=“0“

如果…就會結束

然後

修訂為:

對於i & amp= 1到下界（ar）

v = ar（I，1）

match _ result =“0“

對於d鍵中的每個k

如果instr（v，k），那麽match _ result = d（k）

下壹個k

ar（I，1）= match _ result

然後

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