提取文本中的数字

vleexhya

wengjl 发表于 2024-8-27 17:00
我不会用正则
代码长一点，也能解决

多谢老师帮助！有规律的是好处理一点，函数我会截取，有时候代码不简洁，所以求助老师们，以后遇到类似问题就可以向老师们看齐了。

cidanji

vleexhya

chxw68 发表于 2024-8-27 17:17
那就用楼上提供的正则。

原来用一个Val就可以把数字后的东西去掉啊。统一半角全角，再Val,代码很简洁，多谢老师！

vleexhya

杨建营 发表于 2024-8-27 17:10
新手参与一下。

多谢老师帮助！

vleexhya

cidanji 发表于 2024-8-27 17:24

多谢老师帮助！

ykcbf1100

附件供参考。。。

ykcbf1100

正则参与一下。。。

1. Sub ykcbf()  '//2024.8.27
   
2.     r = Cells(Rows.Count, 1).End(3).Row
   
3.     Dim s$
   
4.     For i = 2 To r
   
5.         s = Cells(i, 1).Value
   
6.         Cells(i, 2) = StrToN(s)
   
7.     Next
   
8. End Sub
   
9. 
   
10. Function StrToN(str As String) As String
    
11.     Dim reg As Object
    
12.     Set reg = CreateObject("VBScript.RegExp")
    
13.     With reg
    
14.         .Pattern = "[^\d]+"
    
15.         .Global = True
    
16.         .IgnoreCase = True
    
17.     End With
    
18.     StrToN = reg.Replace(str, "")
    
19.     Set reg = Nothing
    
20. End Function
    

复制代码

醉眼看尘世

很规律的，用函数公式最简单
=mid(a2,4,find("KG",A2)-4)

我的城市你来过

function text(){
        Range("b2:b99").Clear()
        var sns=Range("a2:a4").Value().flat()
        for (var st=0;st<sns.length;st++){
                 var ses=sns[st].match(/\d+/)
                 Range("b2").Offset(st,0).Resize(1,ses.length).Value2=ses
        }
}

今铭昔