提取连续数字

niko88819

B1  

1. =niko(A1)

复制代码

1. Function niko(ByVal inputStr As String) As String
   
2.     Dim i As Integer, temp As String, maxNumStr As String
   
3.     Dim maxLen As Integer, tempLen As Integer
   
4.     maxNumStr = ""
   
5.     temp = ""
   
6.     maxLen = 0
   
7.     tempLen = 0
   
8.     For i = 1 To Len(inputStr)
   
9.         Dim ch As String
   
10.         ch = Mid(inputStr, i, 1)
    
11.         If ch Like "#" Then
    
12.             temp = temp & ch
    
13.             tempLen = tempLen + 1
    
14.         Else
    
15.             If tempLen > maxLen Then
    
16.                 maxLen = tempLen
    
17.                 maxNumStr = temp
    
18.             End If
    
19.             temp = ""
    
20.             tempLen = 0
    
21.         End If
    
22.     Next i
    
23.     If tempLen > maxLen Then
    
24.         maxNumStr = temp
    
25.     End If
    
26.     niko = maxNumStr
    
27. End Function

复制代码

xtmyd5156

升级用正则函数

军生

沈默00 发表于 2025-3-21 11:11
=REGEXP(A2,"\d{9}")
自然正则最好，，，就像提取11位的手机号码一样，，

REGEXP？office高版本？

军生

niko88819 发表于 2025-3-21 15:50
B1

自定义函数！
高

niko88819

军生 发表于 2025-3-22 12:01
REGEXP？office高版本？

微软 OFFICE 是没有这 REGEXP 函数的，仅专属于 WPS 函数功能

沈默00

军生 发表于 2025-3-22 12:01
REGEXP？office高版本？

这是WPS的新版  正则

军生

沈默00 发表于 2025-3-22 12:41
这是WPS的新版  正则

old 了！
UP  UP！

伊可赛二

365已经正是发布REGEXEXTRACT和REGEXREPLACE函数。

niko88819

伊可赛二 发表于 2025-3-22 15:26
365已经正是发布REGEXEXTRACT和REGEXREPLACE函数。

00030205444050BVV202501DD    当然9位数好说，超过9位数难说了 . 超过9位数，建议还是采用  21楼  自定义函数

ggmmlol

按楼主的举例，模拟AI的分析方法：
目标字符串长度固定为9位，那么位置应当是不固定的，否则用mid,left或right函数之一就搞定了，没有必要求助；
目标字符是连续数字，结合已知的固定长度，那它应当是恰好9位数字，其前后均非数字。
所以，可估计：提取的是源字符串中间位置的恰好连续9位数，它的前面必定是非数字字符，用WPS或EXCEL,正则表达式都可以写成：
\D\K\d{9}(?!\d)
最终公式：
=REGEXP(A1,"\D\K\d{9}(?!\d)")