Excel - VBA - 在單元格內搜索特定值

Question

是否可以在列中搜索特定值？

我希望能夠搜索列「B」中的所有單元格，並在其中查找「單詞」「feas」（不區分大小寫）。我還有其他的一切，只需要知道這是否可行或如何完成。

我當前的代碼如下所示：

Sub PriorityAIMS() 

    ActiveSheet.Name = "Raw Data" 

    Dim ws As Worksheet 
    Set ws = Sheets("Raw Data") 

    Dim ws1 As Worksheet 
    Set ws1 = ThisWorkbook.Sheets.Add(After:= _ 
      ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)) 
    ws1.Name = "FEAS" 

    ws.Activate 
    Row = 2 

    Dim i As Integer 
    For i = 1 To 1500 
     If (Cells(i, 2).Value = (HAS FEAS IN IT) Then 'This is the part that i'm struggling with 

      Copied = ws.Range(Cells(i, 1), Cells(i, 17)).Value 'If possible, this would cut and paste so it deleted the original 
      ws1.Activate 
      ws1.Range(Cells(Row, 1), Cells(Row, 17)).Value = Copied 

     Row = Row + 1 

     ws.Activate 

     End If 

    Next i 
End Sub 

編輯：只是爲了澄清，在B列的值將永遠只是「FEAS」。這將是一個完整的句子，但如果它包含「french」，那麼我希望IF函數能夠工作。

Answer 1

Find和FindNext很好地工作（並很快！）

'... 
    Dim copyRange As Range 
    Dim firstAddress As String 

    Set copyRange = ws.Range("B1:B1500").Find("feas", , , xlPart) 

    If Not copyRange Is Nothing Then 
     firstAddress = copyRange.Address 
     Do 
      ws2.Range(Cells(Row, 1), Cells(Row, 17)).Value = Intersect(copyRange.EntireRow, ws.Columns("A:Q")).Value 
      Row = Row + 1 
      Set copyRange = Range("B1:B1500").FindNext(copyRange) 

     Loop While copyRange.Address <> firstAddress 
    End If 
    '...