VBA在粘贴值旁边查找和查找

Sub FindValue()
    Dim rng As Range
    Set rng = Selection ' 选定范围
    
    Dim result As Range
    Set result = rng.Find(What:="apple", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not result Is Nothing Then
        result.Select
    Else
        MsgBox "Value not found."
    End If
End Sub

Sub FindNextValue()
    Dim rng As Range
    Set rng = Selection ' 选定范围
    
    Dim firstResult As Range
    Set firstResult = rng.Find(What:="apple", LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not firstResult Is Nothing Then
        Dim result As Range
        Set result = firstResult
        
        Do
            result.Select
            Set result = rng.FindNext(result)
        Loop While Not result Is Nothing And result.Address <> firstResult.Address
    Else
        MsgBox "Value not found."
    End If
End Sub