在列中向下移动并查找匹配项- vba

Sub FindMatch()
    Dim searchValue As Variant
    Dim searchRange As Range
    Dim foundCell As Range
    
    ' 设置要查找的值
    searchValue = "apple"
    
    ' 设置要查找的范围，这里假设是A列
    Set searchRange = Range("A:A")
    
    ' 使用Find方法查找匹配项
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlNext)
    
    ' 检查是否找到匹配项
    If Not foundCell Is Nothing Then
        ' 找到匹配项
        MsgBox "找到匹配项在行 " & foundCell.Row
    Else
        ' 未找到匹配项
        MsgBox "未找到匹配项"
    End If
End Sub