字段的任意查找

内容：根据需要查找的关键词，在固定的表格中逐行查找。

Sub 任意查找()
    Dim i As Integer
    Dim strFind As String
    Dim LastRow As Long
    LastRow = ActiveSheet.UsedRange.Rows.Count   '获得使用的行数
    Range("B1").Select
    strFind = "钻头2"
      If Trim(strFind) <> "" Then
            If Cells.Find(What:=strFind, After:=ActiveCell, LookIn:=xlFormulas, _
                             LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                             MatchCase:=False, MatchByte:=False, SearchFormat:=False) Is Nothing Then
             Debug.Print "未找到相关记录！"
'               MsgBox "未找到相关记录！", 0, "提示："
            Else
               For i = ActiveCell.Row To LastRow
                    Debug.Print i & "-"
                    Cells.FindNext(After:=ActiveCell).Activate
               Next
            End If
       Else
            MsgBox "请输入要查找的数据！", 0, "提示："
       End If
End Sub

作者：LiW