Excel VBA - 在工作表中搜索字符串

Question

我有这个Excel工作簿，我想在Sheet1中搜索特定的字符串。如果发现它，请输入一个新值。但是，该表非常庞大，所以我认为循环遍历每个单元格并不是非常有效。那么，我可以通过一个范围进行搜索并找到它吗？

这是我到目前为止有：

Dim rngSearchRange as range 

    With ThisWorkbook.Sheets(1) 
     Set rngSearchRange = .Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row) 
    End With 

我在寻找的字符串是三个值的数组的第一个值。那么，我怎样才能搜索这个范围的特定字符串，找到位置，然后输入一个新的值？

我正沿着这个思路的东西：

Dim rngFindRange as range 
Set rngFindRange = rngSearchRange.Find(var(0), LookIn:=xlValues, lookat:=xlWhole) 

的VAR（0）是数组我后的值。但是这条线并没有给我任何结果。我在这里？

Answer 1

像这样

Sub FindMe() 
    Dim ws As Worksheet 
    Dim rngSearchRange As Range 
    Dim rngFindRange As Range 
    Dim Var 
    Dim elemVar 
    Var = Array("apples", "oranges", "fruit") 
    Set ws = ThisWorkbook.Sheets(1) 
    Set rngSearchRange = ws.Range(ws.[a2], ws.Cells(Rows.Count, "A").End(xlUp)) 
    For Each elemVar In Var 
     Set rngFindRange = rngSearchRange.Find(elemVar, LookIn:=xlValues, lookat:=xlWhole) 
     If Not rngFindRange Is Nothing Then 
      MsgBox elemVar & " found in " & rngFindRange.Address(0, 0) 
     Else 
      MsgBox elemVar & " not found in:" 
     End If 
    Next elemVar 
End Sub