Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$3" Then
Dim i As Integer
Dim x As Range
Set x = Sheets("88").Range("c1:c" & Sheets("88").Cells(Rows.Count, 3).End(xlUp).Row).Find(Target.Value, , , 2, , xlPrevious)
If Not x Is Nothing Then
Sheets("88").Select
Sheets("88").Range("c" & x.Row + 1).Select
End If
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024