VBA:根据Vlookup结果将值移动到另一个工作表

Sub MoveResultToAnotherWorksheet()
    Dim lookupValue As String
    Dim lookupRange As Range
    Dim resultRange As Range
    Dim resultValue As Variant
    Dim destinationWorksheet As Worksheet
    
    ' 设置要查找的值
    lookupValue = "要查找的值"
    
    ' 设置要进行查找的范围
    Set lookupRange = Worksheets("Sheet1").Range("A1:B10")
    
    ' 设置要将结果移动到的工作表
    Set destinationWorksheet = Worksheets("Sheet2")
    
    ' 使用Vlookup进行查找
    resultValue = Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
    
    ' 设置要将结果移动到的单元格
    Set resultRange = destinationWorksheet.Range("A1")
    
    ' 将结果移动到目标工作表中的指定单元格
    resultRange.Value = resultValue
End Sub