Excel VBA在两个不同的列中搜索要粘贴的结果

Sub SearchAndPaste()
    Dim searchRange As Range
    Dim pasteRange As Range
    Dim searchValue As Variant
    Dim result As Range
    
    ' 设置搜索范围和粘贴范围
    Set searchRange = Range("A1:A10") ' 第一个列的范围
    Set pasteRange = Range("B1:B10") ' 第二个列的范围
    
    ' 循环遍历搜索范围中的每个单元格
    For Each searchValue In searchRange
        ' 在粘贴范围中查找搜索值
        Set result = pasteRange.Find(What:=searchValue.Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到了匹配的结果，则将搜索值粘贴到相应的单元格
        If Not result Is Nothing Then
            result.Value = searchValue.Value
        End If
    Next searchValue
End Sub