不能直接用Val，首先要分离出数字来，你如果每行都有字符“$”的话，就把它作为关键字来分离：
方法一：用Instr()函数
Dim S As String
Dim L As Integer
Dim x As Single
S = "Staple - $2.10"
L = InStr(S, "$")
x = Val(Right(S, Len(S) - L))
Print x
方法二：用Split()函数
Dim d() As String
Dim S As String
Dim x As Single
S = "Staple - $2.10"
d = Split(S, "$")
x = Val(d(1))
Print x
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024