根据其他工作表中的键列复制数据。(尝试执行vlookup在VBA中不起作用)

Sub CopyData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim keyColumn As Range
    Dim lookupValue As Variant
    Dim resultValue As Variant
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表")
    
    ' 设置源数据范围和目标数据范围
    Set sourceRange = sourceSheet.Range("A1:C10")
    Set targetRange = targetSheet.Range("A1:C10")
    
    ' 设置键列
    Set keyColumn = sourceSheet.Range("A1:A10")
    
    ' 循环遍历目标数据范围的每一行
    For Each targetCell In targetRange.Rows
        ' 获取当前行的键值
        lookupValue = targetCell.Value
        
        ' 使用VLOOKUP函数在源数据范围中查找匹配的值
        resultValue = Application.VLookup(lookupValue, sourceRange, 3, False)
        
        ' 将结果复制到目标工作表中
        targetCell.Offset(0, 2).Value = resultValue
    Next targetCell
End Sub