点击文件名下载附件
Sub 查找()
Dim d As New Dictionary
Dim x As Integer, m As Integer, n As Integer
For x = 3 To Range("b65536").End(xlUp).Row
d(Cells(x, 2).Value) = Cells(x, 4).Value
Next x
For m = 18 To 27
For n = 1 To 5
Cells(m, 9 + n) = d(Left(Cells(m, 9), n * 2 + 1))
Next n
Next m
点击文件名下载附件
Sub 查找()
Dim d As New Dictionary
Dim x As Integer, m As Integer, n As Integer
For x = 3 To Range("b65536").End(xlUp).Row
d(Cells(x, 2).Value) = Cells(x, 4).Value
Next x
For m = 18 To 27
For n = 1 To 5
Cells(m, 9 + n) = d(Left(Cells(m, 9), n * 2 + 1))
Next n
Next m