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 |
|