vba條件求和

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

截圖