刚学 正在表达式 不捕获组，用“？：”不成功

看飞鸟的金鱼

温馨云 发表于 2025-6-23 15:27
前面的大多都可实现，看看这个是不是你的要求？

可以，你和ykcbf1100都是大神，膜拜！

温馨云

看飞鸟的金鱼 发表于 2025-6-23 15:56
可以，你和ykcbf1100都是大神，膜拜！

过奖了，我的都是东拼西凑搞出来的，没什么文化，把代码当作符号使用。给ykcbf1100老师提鞋都不配。我也是只能处理一些简单的问题。

ykcbf1100

看飞鸟的金鱼 发表于 2025-6-23 11:53
大神，你来啦！感谢回复！中间的数字没有去掉？
这样子写：([A-Z]{3}-[0-9]{3}[A-B]{1,2})(?:-\d+)([上, ...

如果你只想匹配整个字符串中除 -数字 外的部分，那么你应该用 分组捕获 + 忽略特定部分 的方式。表达式可以这样：^([A-Za-z0-9\-]+)(?:-\d+)([\u4e00-\u9fff（）\s\-]+)$
这里分成了好几组，看你保存哪几组数据了。

ykcbf1100

温馨云 发表于 2025-6-23 16:52
过奖了，我的都是东拼西凑搞出来的，没什么文化，把代码当作符号使用。给ykcbf1100老师提鞋都不配。我也 ...

过奖了，正则我也在学习中，还处于入门阶段。

wang-way

看飞鸟的金鱼

wang-way 发表于 2025-6-24 19:46

感谢老师的回复，可以了，谢谢！

看飞鸟的金鱼

ykcbf1100 发表于 2025-6-23 18:16
过奖了，正则我也在学习中，还处于入门阶段。

大神呀！膜拜！

zhangcheng6688

借楼学习一下正则表达式
Sub test()
lastr = Cells(Rows.Count, "a").End(xlUp).Row
arr = Range("a1:b" & lastr)
Set reg = CreateObject("vbscript.regexp")
reg.Pattern = "-\d+(?=[一-龢])|（.*$"
reg.Global = True
For i = 1 To UBound(arr)
   If reg.test(arr(i, 1)) Then
      Set mh = reg.Execute(arr(i, 1))
      arr(i, 2) = reg.Replace(arr(i, 1), "")
   End If
Next
[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
End Sub