求助，修改下面代码实现可以取小数数值~

Mainne

从网上找到的代码，可以从单元格里提取数字，但是不能提取小数，比如“abc20.11"只能提取，20或者11，不能提取为20.11，求大神修改一下实现小数提取，但是不要求把”abc20/11“，提取成”20/11“，在此感谢大家。。。
Function GetNum(rCell As Range, num As Integer) As Double


Dim Arr1() As String, Arr2() As String
Dim chr As String, Str As String
Dim i As Integer, j As Integer
On Error GoTo line1


Str = rCell.Text
For i = 1 To Len(Str)
chr = Mid(Str, i, 1)
If (Asc(chr) < 48 Or Asc(chr) > 57) Then
Str = Replace(Str, chr, " ")
End If
Next

Arr1 = Split(Trim(Str))
ReDim Arr2(UBound(Arr1))
For i = 0 To UBound(Arr1)
If Arr1(i) <> "" Then
Arr2(j) = Arr1(i)
j = j + 1
End If
Next


GetNum = IIf(num <= j, Arr2(num - 1), "")
line1:
End Function

约定的童话

能模拟个文件上传一下不？

Mainne

样式.rar (6.41 KB, 下载次数: 2)

2019-3-30 20:39 上传

点击文件名下载附件

样式已经上传！

Mainne

约定的童话 发表于 2019-3-30 15:30
能模拟个文件上传一下不？

样式已经上传，麻烦看看~

约定的童话

附件不具有代表性，我要原始数据那种附件，汉子+数字一起的

Mainne

约定的童话 发表于 2019-3-31 08:24
附件不具有代表性，我要原始数据那种附件，汉子+数字一起的

是汉字和数字在一起啊！

Mainne

约定的童话 发表于 2019-3-31 08:24
附件不具有代表性，我要原始数据那种附件，汉子+数字一起的

是汉字和数字在一起啊！

Mainne

大神请指教啊

larer

研究一下正则表达式,可以实现