按照如下图在B3和D3单元格里分别输入公式后回车就可以了。
回车后的结果如下图:
如果要求4行和5行的对应值相乘再再相加的结果,在某个单元格里输入如下公式即可:
=22*B5+7*C5+18*D5+6*E5,然后回车。
*由于你的B4,C4,D4,E4单元格里的内容是文字而不是数值,所以用4行单元格里表述的数值与5行对应值相乘。
只能使用正则表达式将第4行的数字提取出来,然后再与第5行的相乘,最后再求和。
Sub test()
Dim 总和 As Single
Dim i As Integer
i = 2
Set regx = CreateObject("VBScript.RegExp")
With regx
.Global = True
.Pattern = "(\d+)"
Set Rng = Range("a4:e4")
For Each rn In Rng
Set k = regx.Execute(rn)
For Each m In k
总和 = 总和 + m * Cells(5, i)
i = i + 1
Next
Next
End With
Cells(5, "F") = 总和
End Sub
维修/台这类文字必须跟多少元放到同一个单元格吗?