求一个解决编号的攫取办法，文件在下方，请各位老师多多指教。

sdunsheng

请各位老师指教，如何处理文本中关于项目编号-数字的攫取。感激不尽~

lss001

Sub 引用正则()
k = Cells(Rows.Count, 2).End(xlUp).Row
ar =Sheets(1).Range("b2:b" & k)
Set d = CreateObject("vbscript.regexp")
For i = 1 To k - 1
    With d
        .Global = False
        .Pattern = "([\u4e00-\u9fff\w\.]*)(?=(招标编号|项目编号)\w)"
        t = .Replace(ar(i, 1), "")
        .Pattern = "(\w)([\u4e00-\u9fff\.].+)"
        Set n = .Execute(t)
        If Sheets(1).Cells(i + 1, 2) <> "" Then s = n(0).SubMatches(0)
        Sheets(1).Cells(i + 1, 3) = .Replace(t, "") & s
    End With
Next
End Sub

sdunsheng

lss001 发表于 2017-12-23 16:09
Sub 引用正则()
k = Cells(Rows.Count, 2).End(xlUp).Row
ar =Sheets(1).Range("b2:b" & k)

非常感谢！