如何將Vlookup單元格設置為VBA中變量表示的值？

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