excel - 扩展 vlookup 来计算商品成本

Question

我有来自网上商店的销售报告，需要计算每个订单行的商品成本。订单行可能类似于以下之一:

2x Lavazza Crema e Aroma 1kg - 1x Lavazza Dolce Caffe Crema 1kg

1x Lavazza Vending Aroma Top 1kg - 1x Arcaffe Roma 1Kg - 1x Kimbo - 100% 阿拉比卡顶级口味

所以，我需要 Excel 做的是获取每个产品，使用 vlookup 函数从另一张表中查找其成本，然后将其乘以订购金额。问题是订购的产品数量可能从 1 到 10+ 不等。我尝试用VBA计算它，但代码不起作用(我知道我目前没有使用乘法)也许可以用Excel公式解决这个问题？

Function GoodsCost(str, Optional strDelim As String = " ")
larray = Split(str, strDelim)
Set lookup_range = Worksheets("Products").Range("B:E")
For i = LBound(larray) To UBound(larray)
    skuarray = Split(larray(i), "x ")
    skucost = Application.WorksheetFunction.VLookup(UBound(skuarray), lookup_range, 4, False)
    cost = cost + skucost
Next i
GoodsCost = cost
End Function

Answer 1

嗯，看来现在问题已经解决了。当然，只有假设产品描述中不存在破折号(-)，它才有效。但可以在产品列表中设置。另一个机会是使用另一个分隔符(例如“/”)。我们可以使用 Ctrl+F 查找所有类似“x -”的组合并将其替换为“x/”)

Function GoodsCost(str)
Dim answer As Double
Set Products = Worksheets("Products").Range("B:E")
larray = Split(str, " - ")
For i = LBound(larray) To UBound(larray)
    sku = Split(larray(i), "x ")
    Price = Application.WorksheetFunction.VLookup(sku(1), Products, 4, False) * sku(0)
    answer = answer + Price
Next i
GoodsCost = answer
End Function