作者：绿色风
分类：
时间：2022-08-17
浏览：140
楼主
wise |
Q:如何使用正则表达式判断某字符是否为A-Z以内不重复的10个字母？
A：ALT+F11→插入模块→输入以下代码：- Sub MyReg()
- Dim Reg As Object
- Dim i As Integer
- Set Reg = CreateObject("vbscript.regexp")
- With Reg
- .Global = True
- .Pattern = "^(?:([A-Z])(?!.*?\1)){10}$"
- For i = 2 To 5
- Cells(i, 2) = .test(Cells(i, 1))
- Next
- End With
- End Sub
关键是：
^(?:([A-Z])(?!.*?\1)){10}$
其解释如下：
(?:)是不匹配括号以内的
(?!)是负向预查，就是不匹配的意思。如"Windows (?!95|98|NT|2000)" 能匹配 "Windows 3.1" 中的 "Windows"
，但不能匹配 "Windows 2000" 中的 "Windows",因为里面使用了(?!95|98|NT|2000)即匹配的字符中包含了
95,98,NT,2000都不能匹配
.是任意字符，不包括换行的
*?是重复任意次
{10}是匹配10次前面的
\1匹配的是([A-Z])匹配的内容
^是表达式开始
$是结束
 如何使用正则表达式求A-Z以内不重复的10个字母.rar
|
2楼
bluexuemei |
结果是空值,请小七检查一下! |
3楼
bluexuemei |
是不是VBA正则不支持?: |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一