Dim AJ, AB, AK As Integer
Dim NA, LH, FH As String
Dim F, J, X, I
AJ = ActiveWorkbook.Sheets("sheet2").[a65536].End(xlUp).Row
For I = 2 To AJ
NA = ActiveWorkbook.Sheets("sheet2").Range("B" & I)
LH = ActiveWorkbook.Sheets("sheet2").Range("F" & I)
With ActiveWorkbook.Sheets("数据库")
Set F = .Range("C:C").Find(NA, , , xlWhole)
If F Is Nothing Then
FH = "查无此人"
Else
r = F.Row
If LH = .Cells(r, 7) Then
就是这里，我计划是找到这个名字之后，看看LH是否等于这个名字所在行的一个数值，如果不等于，则让它继续查找下一个等于NA的的名字，再次校LH，如果不一样就再找下一个，这段代码该怎么去写？在线急等

findnext