正则提取331100开头的14位数字，代码如何改？求助

killq

mrshz 发表于 2019-6-20 21:13
老师，还是错误的

我在你原有的基础上还特意测试过，没问题
如果错误，建议你明确说明下吧

gdfcx

1. Function zztq(rng As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     With reg
   
5.         .Global = True
   
6.         .Pattern = "3311\d+"
   
7.         zztq = .Execute(rng)(0)
   
8.     End With
   
9. End Function

复制代码

killq

另外，这玩艺基本上是可以认为是在一定基础上怎么写都可以，就看你怎么用了
所以，建议你还是先大概了解下这个比较好，毕竟挺有用的

爱吃蜂蜜的狼

1. Function 提取(rng As Range)
   
2. Set regx = CreateObject("vbscript.regexp")
   
3.     regx.Global = True
   
4.     regx.Pattern = "331102\d+"
   
5.     Set mat = regx.Execute(rng)
   
6.     提取 = mat(0).Value
   
7. End Function

复制代码

duquancai

mrshz 发表于 2019-6-20 21:22
老师  帮下小弟哇

来嘛，在你的自定义函数基础上 修改的》》》》》》》》》》》》》

1. Function zztq(ByVal rng As Range) As String
   
2.     Dim reg As Object, mhs As Object
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     reg.Pattern = "(?:\D|^)(331102\d{8})(?!\d)"
   
5.     Set mhs = reg.Execute(rng.Text)
   
6.     If mhs.Count > 0 Then
   
7.         zztq = mhs(0).submatches(0)
   
8.     Else
   
9.         zztq = "False"
   
10.     End If
    
11. End Function

复制代码

everbest2015

vba 对正则的支持能力有限   不是所有符合正则语法的语句  都可以用在vba的正则里

zpy2

duquancai 发表于 2019-6-20 21:05
(?

(?<!\d)
这个vbs好像有点困难吧？

jy03342543

33110\d{9}