正则提取发票号，专票号，税号

3190496160

小象啊啊 发表于 2022-10-8 17:11
请参考附件。

非常感谢，祝工作顺利，
是我需要的效果

zhangmi

想了很久，觉得简单点就可以
Sub fapiao()
Set reg = CreateObject("VBSCRIPT.REGEXP")
    reg.Global = True
    reg.Pattern = ".*?(税号|专票号|发票号)[:：]?([\d-、,，]+)|.*"
For i = 2 To 1009
    s = Cells(i, 1).Text
    ss = reg.Replace(s, "'$2 ")
    Cells(i, 4) = ss
Next
End Sub
替换‘，这些标点符号没写上去，手工替换一下也不麻烦

smiletwo

smiletwo

1. Sub ss()
   
2.     Dim i, arr, mh
   
3.     arr = Sheet1.Range("A1").CurrentRegion
   
4.     Sheet1.Range("B2:B" & UBound(arr)).ClearContents
   
5.     With CreateObject("vbscript.regexp")
   
6.         .Global = True
   
7.         .Pattern = "[票税]号.([0-9,，、-]+)"
   
8.         For i = 2 To UBound(arr)
   
9.             If .test(arr(i, 1)) Then
   
10.                Set mh = .Execute(arr(i, 1))
    
11.                arr(i, 2) = mh(0).submatches(0)
    
12.                If InStr(",，、", Right(arr(i, 2), 1)) Then '去掉结尾的【，,、】
    
13.                    arr(i, 2) = Left(arr(i, 2), Len(arr(i, 2)) - 1)
    
14.                End If
    
15.             End If
    
16.         Next i
    
17.         Sheet1.Range("A1:B" & UBound(arr)) = arr
    
18.     End With
    
19. End Sub
    

复制代码

pjiang

审核太慢了，，，，，，，，，，，，，，，，，，，，，

pjiang

我也试一个，不断学习，，，，，，，，，

blackttea1

学习中，，，，，，，，，，，，，，，，，，，，，

pjiang

我也试一个，，，，，，，，，，

ZHLK

3190496160 发表于 2022-10-8 17:05
非常感谢你的无私付出，大部分实现了效果，但是，还有一些特殊的没有完全提取出来，比如：
535行，这个 ...

你原先的内容不按规则出牌，分隔符不统一，怎么做都不能达到要求。要解决这个问题首先你录入数据要规范

准提部林

大約看下文本, 約有下方的規則
1) 三種號碼都是8碼數字, 有些以"-"帶純數字尾巴....12345678 或 12345678-##
2) 以"逗號"所連接的號碼也是如上規則,
   (例如)專票號：24974339,22341919,2021年9月费用....後面的2021就不可提取
           赵飞报销10月运费，專票號：19564122,19565423,7%税额491.21元....那7%也應排除
3) 逗號若是"中文符/英文符"有固定用法, 則"中文符"即可視為一個段落(可惜目前無法這樣認定)

有固定規則, 不用正則也應可以達成, 就是繁複些!!
然而正則也不是萬靈丹, 畢竟那字符規則不太容易抓全, 還是有漏抓或誤抓~~