VBA 字典数组运用查询系统

Sub find() '找
Set d = CreateObject("scripting.dictionary")
With Sheets("data")
    arr = .Range("a2:i" & Cells(Rows.Count, 1).End(xlUp).Row)
End With
For i = 1 To UBound(arr)  '首先需要在创立的字典中遍历
    d(arr(i, 5)) = Array(arr(i, 2), arr(i, 3), arr(i, 4), arr(i, 6), arr(i, 7))
    Next   '遍历循环查找自己的单元格
For Each Rng In Range("a3:a" & Cells(Rows.Count, 1).End(xlUp).Row)'然后开始需要在自己需要查找的信息中开始遍历
    Rng.Offset(0, 1).Resize(1, 5) = d(Rng.Value)'查找寻找单元格中的值
Next
End Sub