VBA在Excel中向下查找列并查找值？

Sub FindValue()
    Dim searchRange As Range
    Dim searchValue As Variant
    Dim resultCell As Range
    
    ' 设置要查找的范围
    Set searchRange = Range("A1:A10")
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 在范围中查找值
    Set resultCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 判断是否找到值
    If Not resultCell Is Nothing Then
        ' 找到值的处理逻辑
        MsgBox "找到值的单元格为：" & resultCell.Address
    Else
        ' 未找到值的处理逻辑
        MsgBox "未找到值"
    End If
End Sub