VBA，查找单元格地址并用作另一个查找的范围

Sub FindCellAddress()
    Dim searchRange As Range
    Dim searchValue As Variant
    Dim foundCell As Range
    Dim newSearchRange As Range
    
    ' 设置要查找的范围
    Set searchRange = Range("A1:D10")
    
    ' 设置要查找的值
    searchValue = "apple"
    
    ' 在指定范围内查找指定值
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了匹配项
    If Not foundCell Is Nothing Then
        ' 获取找到的单元格地址
        MsgBox "找到的单元格地址为：" & foundCell.Address
        
        ' 将找到的单元格地址用作另一个查找的范围
        Set newSearchRange = Range(foundCell.Address)
        
        ' 在新的范围内继续查找
        ' ...
    Else
        MsgBox "未找到匹配项。"
    End If
End Sub