'如果有巨量数据用vba,测试了一下正确:
Sub test()
Dim arr, dic, i, j
Set dic = CreateObject("scripting.dictionary")
arr = Sheet2.Range("a1:b" & Sheet1.[a65536].End(xlUp).Row)
For i = 1 To UBound(arr, 1)
If Not dic.exists(arr(i, 2)) Then dic.Add arr(i, 2), arr(i, 1)
Next
arr = Sheet1.[a1:f4] '范围修改一下
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
If dic.exists(arr(i, j)) Then arr(i, j) = dic(arr(i, j))
Next
Next
Sheet1.[a6].Resize(UBound(arr, 1), UBound(arr, 2)) = arr '起始位置修改一下
End Sub
温馨提示:答案为网友推荐,仅供参考