vba通過字典方式進行查詢，速度快

Sub 字典()
t=timer
Dim arr, brr, crr, d, i&
Sheets("目標表").Activate
Set d = CreateObject("scripting.dictionary")
arr = Sheets("源數據").Range("a1").CurrentRegion
brr = Range("a1").CurrentRegion
ReDim crr(1 To UBound(brr) - 1, 1 To 1)
For i = 2 To UBound(arr)
    d(arr(i, 1)) = arr(i, 2)
Next
For i = 2 To UBound(brr)
    crr(i - 1, 1) = d(brr(i, 1))
Next
Range("b2").Resize(UBound(crr)) = crr
MsgBox "一共用時：" & Format(Timer - t, "#0.0000") & " 秒", , "友情提示!!"  '//提示
End Sub