用VBA數組字典實現多條件查找

Sub test()
Dim arr, brr
Dim i&, j&
Set d = CreateObject("Scripting.Dictionary")
arr = [A1].CurrentRegion
brr = [A11].CurrentRegion
For i = 2 To UBound(arr)
    d(arr(i, 1) & arr(i, 2)) = i
Next
For j = 2 To UBound(brr)
    If d.Exists(brr(j, 1) & brr(j, 2)) Then
        m = d(brr(j, 1) & brr(j, 2))
        brr(j, 3) = arr(m, 3)
        brr(j, 4) = arr(m, 4)
    End If
Next
[A11].Resize(UBound(brr), 4) = brr
End Sub