Excel VBA -在列中查找匹配值，并在另一列中返回值

Sub FindAndReturn()
    Dim searchValue As Variant
    Dim searchRange As Range
    Dim resultRange As Range
    Dim cell As Range
    
    ' 设置要搜索的值
    searchValue = "要查找的值"
    
    ' 设置要搜索的范围
    Set searchRange = Sheets("Sheet1").Range("A1:A10")
    
    ' 设置返回结果的范围
    Set resultRange = Sheets("Sheet1").Range("B1:B10")
    
    ' 遍历搜索范围中的每个单元格
    For Each cell In searchRange
        ' 检查单元格的值是否匹配
        If cell.Value = searchValue Then
            ' 在结果范围中对应位置写入匹配的值
            resultRange.Cells(cell.Row, 1).Value = "返回的值"
        End If
    Next cell
End Sub