如何在VBA中根据一列中的值从另一列中选择值？

Sub SelectValues()
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim sourceCell As Range
    Dim targetCell As Range
    
    ' 设置源数据范围和目标数据范围
    Set sourceRange = Range("A1:A10")
    Set targetRange = Range("B1:B10")
    
    ' 循环遍历源数据范围
    For Each sourceCell In sourceRange
        ' 循环遍历目标数据范围
        For Each targetCell In targetRange
            ' 判断源数据单元格的值是否与目标数据单元格的值相等
            If sourceCell.Value = targetCell.Value Then
                ' 如果相等，则选择目标数据单元格的值
                sourceCell.Offset(0, 1).Value = targetCell.Value
                Exit For ' 找到匹配值后退出目标数据范围的循环
            End If
        Next targetCell
    Next sourceCell
End Sub