VBA正则表达式我照着曾贤志教程写的操作为啥不行咧？

8191872

Sub test()
Dim regx As New RegExp, mat, rn, rng, m, n
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "^[A-Z]+\d+$"
For Each rng In [a1:a5]
Set mat = .Execute(rng)
For Each m In mat
n = n + 1
Cells(n, 2) = m
Next
Next
End With
End Sub

以上的我的代码，我有两个问题，请大神帮忙解答，谢谢！
1.为什么同样的代码和例子，我就执行不了咧？n=n+1那一行直接跳过去了，M和N都无法写入
2.为什么他不需要定义变量，而我就一定要定义咧？因为他是2010版，我是2016版？

8191872

是不是那个托字符号错了？不是^吗？要怎么输入？

duquancai

8191872 发表于 2019-6-26 23:44
是不是那个托字符号错了？不是^吗？要怎么输入？

曾贤志是哪位大神？你问问他看。

abc123281

[A-Z]识别大写  你的数据中带有小写字母  所以不匹配

abc123281

改成下面的就行了
.Pattern = "^[A-Za-z]+\d+$"

zpy2

你的单元格 全都有小写字母，你这个只匹配 大写字母，改成下面的试试
[A-Za-z]+\d+
第二个问题。
你看看 有没有 explicit on 在模块的第一行，这个是用强制 声明变量的，删除就行了。

8191872

abc123281 发表于 2019-6-27 00:18
改成下面的就行了
.Pattern = "^[A-Za-z]+\d+$"

可以了，谢谢！