计算总量

Question

我有一种情况，在Excel中导出的物料清单拉入'级别'，'项目'和'数量'。为了计算BoM中项目的总数量，需要将数量乘以父级数量。我已经在下面手动显示了这一点，但是由于实际数据集的大小，我想知道是否有一种方法可用VBA来计算总量值？

Level  Item   Qty  Total Qty 
    1   A   1   1 
    1   B   2   2 
    2   C   3   6 
    2   D   1   2 
    2   E   2   4 
    3   F   5   20 
    3   G   3   12 
    2   H   2   4 
    3   I   1   4 
    2   J   1   2 
    2   K   3   6 
    1   L   2   2 
    1   M   1   1 

Answer 1

这是使用的UDF。

将其粘贴到您正在使用的工作簿中的模块中。

Function qtyfind(level As Range) As Double 
    Dim i&, temp&, qtyClm&, tQtyClm& 

    'Change the Column name to match if different 
    qtyClm = WorksheetFunction.Match("QTY", Range("1:1")) 
    tQtyClm = WorksheetFunction.Match("TOTAL QTY", Range("1:1")) 

    If level = 1 Then 
     temp = Cells(level.Row, qtyClm) 
    Else 
     For i = level.Row To 2 Step -1 'loops bottom up 

      If Cells(i, level.Column) = (level.value - 1) Then 
       temp = Cells(i, tQtyClm) * Cells(level.Row, qtyClm) 
       Exit For 
      End If 
     Next 
    End If 

    qtyfind = temp 
End Function 

然后调用它在第一个单元格并抄下：