[已解决]提取文本中最右边的数字

xm258

如题

最佳答案

月排行榜 / 总排行榜

小新De和尚头

2016-9-8 16:47

1. Function GETNUM(rng As Range) As Double
   
2. Dim regx As Object
   
3. Set regx = CreateObject("vbscript.regexp")
   
4. With regx
   
5.     .Global = True
   
6.     .Pattern = "\d+\.*\d*"
   
7.     Set matcs = .Execute(rng.Value)
   
8.     GETNUM = matcs(matcs.Count - 1)
   
9. End With
   
10. End Function
    

复制代码

求助-自定义函数.rar (8.65 KB, 下载次数: 5)

2016-9-8 16:47 上传

点击文件名下载附件

跳转到最佳答案楼层

小新De和尚头

1. Function GETNUM(rng As Range) As Double
   
2. Dim regx As Object
   
3. Set regx = CreateObject("vbscript.regexp")
   
4. With regx
   
5.     .Global = True
   
6.     .Pattern = "\d+\.*\d*"
   
7.     Set matcs = .Execute(rng.Value)
   
8.     GETNUM = matcs(matcs.Count - 1)
   
9. End With
   
10. End Function
    

复制代码

求助-自定义函数.rar (8.65 KB, 下载次数: 5)

2016-9-8 16:47 上传

点击文件名下载附件

苏子龙

我用函数解
=IF(A2="","",-LOOKUP(1,-RIGHT(A2,ROW($1:$20))))

xm258

谢谢!!!