vba查找，求编写代码

Question

如何编写代码，求赐教当sheet1里A列的姓名发生变化时，sheet1里B列的职称自动得出“sheet职称表”对应的职称，如果用函数就直接用=VLOOKUP(A:A,职称表!A:B,2,0)就可以了。那么如果用vba怎么编写呢？求大神不吝赐教

Answer 1

函数是
=VLOOKUP(A2,,职称表!A:B,2,0)
代码
Sub 查找()
For i = 2 To Range("A65536").End(xlUp).Row
For n = 2 To Sheets("职称表").Range("A65536").End(xlUp).Row
If Cells(i, "A") = Sheets("职称表").Cells(n, "A") Then
Cells(i, "B") = Sheets("职称表").Cells(n, "b")
End If
Next
Next
End Sub