7,759
社区成员
发帖
与我相关
我的任务
分享
Dim a As String
a = "ST 0008.447 g"
Label1 = Val(Mid(a, 5))
Dim a, b
a = "ST 0008.447 g"
b = Val(Mid(a, 5, 8))
MsgBox b
Dim a As String, b As String
a = "ST 0008.447 g"
b = Format(Trim(Replace(Replace(a, "ST", ""), "g", "")), "0.000")
MsgBox b