[已解决]VBA用两种方法获取字符前面或后面数值

laoau138

VBA用两种方法获取字符前面或后面数值

第一种用自定义函数

第二种用SUB

获取字符串前面的数值或者后面的数值。例如“123.8公斤”

取值结果为123.8，

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2017-10-28 16:01

那就简单的吧，SUB差不多意思。

1. Function abc(a)
   
2. Dim i&, s$
   
3. s = a
   
4. For i = 1 To Len(a)
   
5.   If Not (IsNumeric(Mid(s, i, 1)) Or Mid(s, i, 1) = ".") Then Mid(s, i, 1) = "*"
   
6. Next i
   
7. abc = Replace(s, "*", "") * 1
   
8. End Function

复制代码

跳转到最佳答案楼层

大灰狼1976

光取前面就简单了，这样要用正则，好麻烦，要不就逐个字符判断替换。

laoau138

大灰狼1976 发表于 2017-10-28 15:52
光取前面就简单了，这样要用正则，好麻烦，要不就逐个字符判断替换。

不要用正则啊

大灰狼1976

那就简单的吧，SUB差不多意思。

1. Function abc(a)
   
2. Dim i&, s$
   
3. s = a
   
4. For i = 1 To Len(a)
   
5.   If Not (IsNumeric(Mid(s, i, 1)) Or Mid(s, i, 1) = ".") Then Mid(s, i, 1) = "*"
   
6. Next i
   
7. abc = Replace(s, "*", "") * 1
   
8. End Function

复制代码

大灰狼1976

没有考虑符号，如有，那么在条件中加进去。
另外，如果数值是分段的，这个处理会并成一个数值。

大灰狼1976

只取前面数值的话，只要套个val()就行了。

laoau138

大灰狼1976 发表于 2017-10-28 16:01
那就简单的吧，SUB差不多意思。

VBA用两种方法改写跨表比较   里面有代码


http://www.excelpx.com/thread-434658-1-1.html



VBA用数组和字典两种方法    汇种合计和次数

http://www.excelpx.com/thread-434663-1-1.html

laoau138

大灰狼1976 发表于 2017-10-28 16:02
没有考虑符号，如有，那么在条件中加进去。
另外，如果数值是分段的，这个处理会并成一个数值。

这个可以用了

laoau138

大灰狼1976 发表于 2017-10-28 16:18
只取前面数值的话，只要套个val()就行了。

VBA用两种方法改写跨表比较   里面有代码


http://www.excelpx.com/thread-434658-1-1.html



VBA用数组和字典两种方法    汇种合计和次数

http://www.excelpx.com/thread-434663-1-1.html