获得一个特定的行中的Excel工作表，如果我定的目标词发现

Question

任何人可以帮助我得到一个由我的目标在片

例如搜索词或串片的一排我的搜索词是“活跃“：有100行，并在第50行是行中的任何列有一句​​话叫做‘活动’然后我需要检索行，我希望你明白我的问题提前

谢谢:)

Answer 1

试试这个宏，

Sub searchWord() 
Dim i As Long, j As Long, str As String, match As Boolean 
match = False 
str = InputBox("Enter string to be searched") 
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row 
    For j = 1 To Cells(1, Columns.Count).End(xlToLeft).Column 
     If (InStr(Cells(i, j), str) > 0) Then 
      Rows(i).Select 
      match = True 
      Exit For 
     End If 
    Next j 
    If match = True Then 
     Exit For 
    End If 
Next i 
End Sub 

此宏选择具有您正在搜索的字符串的行。