提取文本字符串中最小的数值

20074974

学习一下。。。。

shaowu459

用word通配符替换？

winnerzjt

具体问题具体分析,公式也一样

feiger32911

小花鹿 发表于 2011-12-2 11:08
如果非数字字符很多，可用WORD处理：

这个方法倒是头一次见，查找内容：[0-9.^13]{1,}
能不能解释一下，谢谢!!!

香川群子

来个另类，VBA自定义函数方法。
夹杂的字符种类无限制，单元格内容长度无限制。

1. Function MNum(Txt)
   
2.     For i = 1 To Len(Txt)
   
3.         t = Val(Right(Txt, i))
   
4.         If t = 0 Then
   
5.             If p > 0 And (p < q Or q = 0) Then q = p
   
6.             p = 0
   
7.         Else
   
8.             p = t
   
9.         End If
   
10.     Next
    
11.     If p > 0 And p < q Then q = p
    
12.     MNum = q
    
13. End Function
    

复制代码

香川群子

或者这样写：

1. Function MNum(Txt)
   
2.     Txt = "C" & Txt
   
3.     For i = 1 To Len(Txt)
   
4.         t = Val(Right(Txt, i))
   
5.         If t = 0 Then
   
6.             If p > 0 And (p < q Or q = 0) Then q = p
   
7.             p = 0
   
8.         Else
   
9.             p = t
   
10.         End If
    
11.     Next
    
12.     MNum = q
    
13. End Function
    

复制代码

香川群子

数组公式很炫，但是通用性不强，以及计算量太大。

我觉得有时候可以考虑用VBA自定义函数来解决。

huanglicheng

自定义函数供参考

1. Function Minval(rng As Range) As Double
   
2.     Dim d As Object, c As Object
   
3.     Set d = CreateObject("scripting.dictionary")    '创建一个字典
   
4.     Set regex1 = CreateObject("VBSCRIPT.REGEXP")    'RegEx为建立正则表达式
   
5.     With regex1
   
6.         .Global = True    '设置全局可用
   
7.         .Pattern = "\d+[.]?\d*"    '设置正则表达的为整数或小数
   
8.         Set c = .Execute(rng.Value)    '返回正则表达式匹配结果
   
9.     End With
   
10.     If c.Count > 0 Then    '如果匹配的结果太于0'
    
11.         For i = 0 To c.Count - 1
    
12.             d(Val(c.Item(i).Value)) = 0          '正则表达式循环结果存到字典中'
    
13.         Next i
    
14.         Minval = Application.WorksheetFunction.Min(d.keys)    '获取字典中的最小值'
    
15.     Else
    
16.         Minval = 0
    
17.     End If
    
18.     Set d = Nothing
    
19.     Set c = Nothing
    
20.     Set regex1 = Nothing
    
21. End Function

复制代码

小花鹿

feiger32911 发表于 2011-12-2 14:57
这个方法倒是头一次见，查找内容：[0-9.^13]{1,}
能不能解释一下，谢谢!!!

查找数字、小数点、回车符之外的所有字符，将其替换为一个空格。

蓝天云朵

收藏了自定义函数。