Sub VLOOKUP()
On Error Resume Next
For i = 2 To 4072
Cells(i, 27) = WorksheetFunction.VLOOKUP(Cells(i, 1), Range("X2:Y6382"), 2, False)
Next
End Sub
总行数和总列数依然可以用ActiveSheet.UsedRange.*系列函数自动读取
On Error Resume Next的意思是:如果没找到,继续运行 (去掉此行后如果有没配上的值程序会在此断掉)
VLOOKUP函数的4个参数分别代表:用哪个值(与查找范围中第一列的值)进行配对;查找的范围;查找范围中第几列的值用来作为填充的值;精确匹配(false)
ps. vlookup函数真香