vba条件求和

Question

成本里面计算下面的装备需要材料的个数乘以左面的单价，然后每样材料总价求和

Answer 1

1、代码如下：

Sub 制作()

Dim rng As Range, rngs As Range, i%

Range("c2:d2") = Array("单项总价", "合计总价")

For Each rng In Range("e3", [e3].End(xlDown))

n = Application.Sum(rng(1, 2).Resize(1, 3))

Set rngs = Range("a:a").Find(rng)

rngs(1, 3) = rngs(1, 2) * n

Next

Range("d3") = Application.Sum(Range("c3", [c3].End(xlDown)))

End Sub

截图

追问

你好，是这样的，比如精制秘银头盔一列，拿这一列的材料个数*左面对应的材料的价格，然后相加得出来的成本价格在头盔的上方成本那一行