BOM成本计算（有偿求助大神）

aleaflin

zhumw 发表于 2020-6-19 11:06
大神，您为我的问题付出了知识和时间，麻烦加我下，好兑现承诺，谢谢！

山版主的代码效率比我的高多了，我很多东西也都是跟他学的，大家共同学习交流，我就不那啥了

blackttea1

学习，学习，点个赞

飞天篮球猪

提供一个Power Query 解法, 供参考...
20万行数据效率没有问题.....Revised

microyip

我看了这么多，都是某个层级的用量是将下级的全部数量进行相加，而原来写的那个数量被冲刷了，这个是对的吗？

microyip

我的疑问一直是下面两个问题

一把小刀闯天下

'参与一下，，，

'总金额：70868.49 ,  总用量：14044.11

Option Explicit

Sub test()
  Dim arr, sum(99), i, j, p, cnt, total
  arr = [a1].CurrentRegion.Offset(1).Resize(, 5).Value
  ReDim brr(1 To UBound(arr, 1) - 1, 1 To 1)
  p = arr(UBound(arr, 1) - 1, 1)
  For i = UBound(arr, 1) - 1 To 2 Step -1
    If arr(i, 1) >= p Then
      brr(i, 1) = Round(arr(i, 3) * arr(i, 4), 2)
      cnt = cnt + arr(i, 3)
      total = total + brr(i, 1)
    Else
      brr(i, 1) = Round(arr(i, 3) * sum(p), 2)
      For j = arr(i, 1) + 1 To p
        sum(j) = 0
      Next
    End If
    sum(arr(i, 1)) = sum(arr(i, 1)) + brr(i, 1)
    p = arr(i, 1)
  Next
  brr(1, 1) = total: arr(1, 3) = cnt
  [e2].Resize(UBound(brr, 1)) = brr
  MsgBox "总金额：" & total & vbNewLine & "总用量：" & cnt
End Sub

wdx223

这个结果正确吗？

zhumw

wdx223 发表于 2020-6-20 17:26
这个结果正确吗？

这个结果是正确的

zhumw

microyip 发表于 2020-6-20 15:00
我的疑问一直是下面两个问题

29行2的用处是说明做8行的1要2个，3行的1说明做2行的0要用1个；3行1的金额是所有对应下级2的金额之和，如果不为1，金额为下级单用量金额之和乘以用量

zhumw

aleaflin 发表于 2020-6-19 12:17
山版主的代码效率比我的高多了，我很多东西也都是跟他学的，大家共同学习交流，我就不那啥了

惭愧，我发此贴是真心有偿求助，尽管不多。