使用VLOOKUP从不同表格中减去单元格的VBA Excel宏

Sub SubtractValues()
    Dim sourceRange As Range
    Dim lookupValue As Variant
    Dim lookupRange As Range
    Dim resultCell As Range
    
    ' 定义源表格范围
    Set sourceRange = Worksheets("Sheet1").Range("A1:A10")
    
    ' 定义查找值
    lookupValue = Worksheets("Sheet2").Range("B1").Value
    
    ' 定义查找范围
    Set lookupRange = Worksheets("Sheet2").Range("A1:B10")
    
    ' 定义结果单元格
    Set resultCell = Worksheets("Sheet2").Range("C1")
    
    ' 使用VLOOKUP函数查找值并进行计算
    resultCell.Value = lookupValue - Application.WorksheetFunction.VLookup(lookupValue, lookupRange, 2, False)
End Sub