一个超强的计算式，支持超长计算以及备注等等

Function JC(C As Range) As Double Dim s As String Dim regex As Object Dim tmp0 As String, tmp1 As String Dim a() As ...