请问一下怎么能快速算出金额?有比较好的方法也行...头大

上个附件到百度网盘。for+split就可以了

925+150+900+260
选中整列
ctrl+e

Option Explicit
Sub abc()
　Dim i, j, a, b, c, t
　a = Range("c2:c" & [c1].End(xlDown).Row).Value
　b = "0.123456789"
　For i = 1 To UBound(a)
　　For j = 1 To Len(a(i, 1))
　　　If InStr(b, Mid(a(i, 1), j, 1)) = 0 Then _
　　　　Mid(a(i, 1), j, 1) = Space(1)
　　Next
　　t = Split(a(i, 1))
　　For j = 0 To UBound(t)
　　　If Len(t(j)) Then c = c + Val(t(j))
　　Next
　　a(i, 1) = c: c = Empty
　Next
　[d2].Resize(UBound(a)) = a
End Sub

回复13楼：把圈出的单元格填上内容后不再报错了