主题：单元格提取

此主题相关图片如下：qq截图20161108001656.png

怎样让最后一行的合计单价自动由前面的工序及单价中提取出来啊，求教

参考代码

Dim str As String = "工序0.1,工序0.9,工序33"
Dim mc = System.Text.RegularExpressions.Regex.Matches(str, "[0-9\.]+")
Dim sum As Double = 0
For i As Integer = 0 To mc.count-1
    output.show(mc(i).value)
    sum += val(mc(i).value)
Next
msgbox(sum)

抱歉，是我叙述有问题，我的要求是最后面的“合计单价”列=“工序及单价”列里面的数字总和，自动计算，像EXCEL里面的函数一样。