Question

我在一张表中列出了包含部件号和相应收货金额的收货库存清单，以及另一张表中包含当前库存金额的综合零件清单。我希望能够运行将传入库存量添加到当前库存的代码。到目前为止，我能够获得将新库存值分配给变量cur_inv的代码，但我无法将其推送到正确的单元格。这是代码：

Sub Test()
ActiveSheet.Range("A1").Select
Do Until IsEmpty(ActiveCell)

    lookfor = ActiveCell.Offset(0, 1).Value
    Set r = Sheets("Available Inventory").Range("Lookup")
    cur_inv = Application.WorksheetFunction.VLookup(lookfor, r, 2, False)
    new_inv = ActiveCell.Offset(0, 2).Value

    cur_inv = new_inv + cur_inv

    ActiveCell.Offset(1, 0).Select
Loop

End Sub

Answer 1

您可以通过将变量的值设置为单元格的值来执行此操作，如：

ActiveSheet.Range("Your Cell here").Value = new_inv

如何将vlookup单元格设置为VBA中变量表示的值？

1 个答案: