从另一个工作表中减去数量的Excel VBA代码

可以通过以下方式实现：

首先，需要在VBA编辑器中打开Excel文件并打开宏编辑器。按下ALT+F11可以打开VBA编辑器。
在VBA编辑器中，可以在“插入”菜单中选择“模块”以添加新的VBA模块。
在新的VBA模块中，可以编写以下代码：

Sub SubtractQuantity()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim sourceRange As Range
    Dim targetRange As Range
    Dim i As Long
    
    ' 设置源工作表和目标工作表
    Set sourceSheet = ThisWorkbook.Worksheets("源工作表名称")
    Set targetSheet = ThisWorkbook.Worksheets("目标工作表名称")
    
    ' 设置源工作表和目标工作表中的数据范围
    Set sourceRange = sourceSheet.Range("源工作表数据范围")
    Set targetRange = targetSheet.Range("目标工作表数据范围")
    
    ' 循环遍历数据范围中的每个单元格，并从目标工作表中减去相应的数量
    For i = 1 To sourceRange.Rows.Count
        targetRange.Cells(i).Value = targetRange.Cells(i).Value - sourceRange.Cells(i).Value
    Next i
End Sub

请注意，上述代码中需要根据实际情况修改以下部分：