[已解决]求一个正则表达式

Ex_EP

需要一个正则表达式 效果如下图所示：     有附件   谢谢

最佳答案

月排行榜 / 总排行榜

as0810114

2015-8-8 15:25

Sub test()
Dim myreg
Dim arr, brr(1 To 10000, 1 To 1)
arr = Range("A1").CurrentRegion
Set myreg = CreateObject("VBSCRIPT.REGEXP")
For i = 2 To UBound(arr)
    With myreg
        .Pattern = "\b[a-zA-Z]+"
        .Global = True
        brr(i - 1, 1) = .Execute(arr(i, 1))(0)
    End With
Next
Range("C2").Resize(i) = brr
End Sub

跳转到最佳答案楼层

as0810114

Sub test()
Dim myreg
Dim arr, brr(1 To 10000, 1 To 1)
arr = Range("A1").CurrentRegion
Set myreg = CreateObject("VBSCRIPT.REGEXP")
For i = 2 To UBound(arr)
    With myreg
        .Pattern = "\b[a-zA-Z]+"
        .Global = True
        brr(i - 1, 1) = .Execute(arr(i, 1))(0)
    End With
Next
Range("C2").Resize(i) = brr
End Sub

dachairen

Pattern = "\b[a-zA-Z]+-?[a-zA-Z]+"

Ex_EP

dachairen 发表于 2015-8-8 15:53
Pattern = "\b[a-zA-Z]+-?[a-zA-Z]+"

刚刚 测试了 下 其实 你的才是正确的   因为楼上 那个  EP-TZ 无法满足  而您 提供的 可以满足  我却没有将你的设置为最佳答案  实在抱歉  谢谢您的帮助