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