VBA實現VLOOKUP匹配

數據量小的時候可以使用APPLICATION.WORKSHEETFUNCTION.VLOOKUP，數據量大、而且需要反復匹配同壹組數據的時候，這樣會非常慢，解決辦法就是使用字典，基本的套路是：

SET?DICT=CREATEOBJECT("SCRIPTING.DICTIONARY")

ARR=SHEETS("數據源").USEDRANGE

FOR?I=1?TOUBOUND(ARR)

DICT(ARR(I,1))=ARR(I,2)

NEXT?I

'查找填充數據

ARR=SHEETS("條件").RANGE("A1:B100")

FOR?I=2?TO?UBOUND(ARR)

ARR(I,2)=DICT(ARR(I,1))

NEXT?I

SHEETS("條件").RANGE("A1:B100")=ARR