VBA:尝试编写执行公式的代码，以便从另一个工作表中检索数据

Sub RetrieveData()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetCell As Range
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Sheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Sheets("目标工作表名称")
    
    ' 设置源数据范围和目标单元格
    Set sourceRange = sourceSheet.Range("A1:B10") ' 设置源数据范围
    Set targetCell = targetSheet.Range("A1") ' 设置目标单元格
    
    ' 执行公式，将源数据复制到目标单元格
    targetCell.Formula = "=VLOOKUP(""要查找的值"", " & sourceRange.Address & ", 2, FALSE)"
End Sub