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

mrshz

论坛老师，正则提取331100开头的14位数字，代码如何改，才能正确哦？求助，感谢！！

killq

把你那里面的^$去除即可

duquancai

(?:\D|^)(331100\d{8})(?!\d)

duquancai

(?<!\d)331100\d{8}(?!\d)

mrshz

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

感谢老师，好像不对

duquancai

mrshz 发表于 2019-6-20 21:11
感谢老师，好像不对

不对算了。。。。。。。。。。。。。。。。。

mrshz

killq 发表于 2019-6-20 21:01
把你那里面的^$去除即可

老师，还是错误的

duquancai

mrshz 发表于 2019-6-20 21:11
感谢老师，好像不对

基础不牢，地动山摇；基础不牢，必出幺蛾子！

mrshz

duquancai 发表于 2019-6-20 21:14
基础不牢，地动山摇；基础不牢，必出幺蛾子！

老师  帮下小弟哇

DevilW

1. Function zztq(rng As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     reg.Pattern = ".*?(\b331102\d{8}\b).+"
   
5.     zztq = reg.Replace(rng, "$1")
   
6. End Function

复制代码

以上是用 Replace 方法，还有 Execute 方法如下

1. Function zztq(rng As Range)
   
2.     Dim reg As Object
   
3.     Set reg = CreateObject("VBScript.RegExp")
   
4.     reg.Pattern = "\b331102\d{8}\b"
   
5.     zztq = reg.Execute(rng)(0)
   
6. End Function

复制代码