找到田7并显示位置退出

nnsea

Sub exitfor退出()
Dim i!
For i = 2 To 7
    If Sheet1.Cells(i, 1) = "田七" Then
       Exit For
    End If
Next i
MsgBox "第一个（田七）的位置在" & i & "行"
End Sub