汇总凌乱的开销记录带元计算VBA

nnsea

Sub 带元计算()
With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "\d+\.?\d?(?=[元块])"
    For Each Rng In [b2:b6]
        For Each m In .Execute(Rng)
            n = n + m * 1
        Next
        Cells(Rng.Row, "c") = n
        n = 0
    Next
End With
End Sub