如果找到给定的目标单词，则在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

此宏选择包含您要搜索的字符串的行。