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
截圖