查找列，然后粘贴vba excel

Sub FindAndPaste()
    Dim searchRange As Range
    Dim pasteRange As Range
    Dim searchValue As Variant
    Dim foundCell As Range
    
    ' 设置查找范围
    Set searchRange = Range("A1:A10")
    
    ' 设置粘贴范围
    Set pasteRange = Range("B1")
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 在查找范围中查找指定值
    Set foundCell = searchRange.Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    ' 如果找到了匹配的单元格，则将其值粘贴到指定位置
    If Not foundCell Is Nothing Then
        pasteRange.Value = foundCell.Value
    Else
        MsgBox "未找到匹配的值。"
    End If
End Sub