正则表达式分组

brianlong

下午好  如图所示  我是想保留第3个“-”之后的数据
先不说用什么方法可以实现  因为在下最近在学正则，想用分组取值的方法实现
我写了正则后第一个返回时对的 第二单元格就出错了
哪位大牛告诉我一下  是哪里的问题  帮我纠正一下 谢谢

zhang6029

我看看看看看看

未忘初心

\w+\-
匹配 字母或数字下划线和-
(\w+\- ){3}
匹配 字母或数字下划线和-   3个
举例
a-b-c- 可以
a-b-三- 不可以

lsdongjh

1. Sub 只保留第3个横杠之后的数据()
   
2.     Dim mat As Object
   
3.     Dim regx As Object
   
4.     Dim arr As Variant, lngRow As Long
   
5.    
   
6.     arr = Sheet4.Range("A2:B4")
   
7.    
   
8.     Set regx = CreateObject("vbscript.regexp")
   
9.     With regx
   
10.         .Global = True
    
11.         .Pattern = "([^\-]*\-){3}(.*)"
    
12.     End With
    
13.    
    
14.     For lngRow = LBound(arr) To UBound(arr)
    
15.         arr(lngRow, 2) = regx.Replace(arr(lngRow, 1), "$2")
    
16.     Next
    
17.     Sheet4.Range("A2:B4") = arr
    
18. End Sub

复制代码

zhang6029

"([\u4e00-\u9fa5_a-zA-Z0-9]+\-){3}(.*)"是正则表达式写错了。

brianlong

zhang6029 发表于 2018-9-21 17:16
"([%u4e00-%u9fa5_a-zA-Z0-9]+\-){3}(.*)"是正则表达式写错了。

我后面也发现了  之前没有考虑到汉字不能匹配 也不知道不能匹配全部单元格的内容会是那个提示  谢谢你