多级展开BOM成本计算

lizi007

已知多级展开BOM、外购材料单价，求成本合计及单位成本，单位成本中的公式是不规则的，怎样用VBA完成单位成本中所有公式输入。

lizi007

没人顶，自己来
Sub asf()
a = [a1].End(xlDown).Row
For i = 2 To a
    If Cells(i, 3) = "外购件" Then
        Cells(i, 7).FormulaR1C1 = "=rc[-1]/rc[-3]"
     Else
     For j = i + 1 To a + 1
        If Right(Cells(j, 1), 1) <= Right(Cells(i, 1), 1) Then
          x = j - i - 1
          Exit For
        End If
     Next
        Cells(i, 7).FormulaR1C1 = "=sum(rc[-1]:r[" & x & "]c[-1])/rc[-3]"
    End If
Next
End Sub

lizi007

有谁共鸣!!!

蓝桥玄霜

如果只有3级，还不是太复杂。
你的最多是几级？
A8、A9的"..3"应该是"...3"吧？

lizi007

蓝桥先生一针见血
A8、A9的"..3"应该是"...3"
另外请教超过10级以上怎么处理呢？

thtfzhaobo

最好形成一些基础，才好保证多级处理，从我想到，一个是外购件及单价表（外购件名称、单价），另一个是BOM的对应关系表（自产件名称、下一级名称、用量），再对你的表格进行计算，多少级都无所谓。名称用编码更佳，可提高准确率。

zhu310112

ddddddjhnjnjhnhh

绝地重生

不错，比我菜鸟强点