提取车牌号码

mg0601001

1. =IF(SUM(--(MID(A37,ROW(INDIRECT("1:"&LEN(A37))),1)="粤"))=1,MID(A37,FIND("粤",A37&"粤"),7),MID(A37,FIND("粤",A37&"粤"),7)&MID(A37,MAX((MID(A37,ROW(INDIRECT("1:"&LEN(A37))),1)="粤")*ROW(INDIRECT("1:"&LEN(A37)))),7))

复制代码

公式写的有点长

mg0601001

希望大师帮忙简化

yezn

全部是粤的容易点，如果是全国的呢

苏子龙

1. =LEFT(TRIM(MID(SUBSTITUTE($A1,"粤",REPT(" ",99)&"粤",COLUMN(A1)),99,99)),7)

复制代码

直接左拉下拉，就行了，如果不都是粤，可以考虑自定义函数，如用正则写自定义函数

wp8680

难道就没有人考虑下用正则表达式？

wp8680

1. Function 提取车牌号(ByVal st As String) As String
   
2. '如有疑问可询QQ399457850或群号39212411
   
3.     Dim reg, m
   
4.     Set reg = CreateObject("Vbscript.RegExp")
   
5.     With reg
   
6.         .Global = True
   
7.         .Pattern = "[川蜀京津沪渝冀豫云滇辽黑湘皖鲁新苏浙赣鄂桂甘陇晋蒙陕吉闽贵黔粤青藏宁琼台][0-9A-Z]{6}"
   
8.         For Each m In reg.Execute(st)
   
9.             If 提取车牌号 = "" Then
   
10.                 提取车牌号 = m.Value
    
11.             Else
    
12.                 提取车牌号 = 提取车牌号 & "、" & m.Value
    
13.             End If
    
14.         Next m
    
15.     End With
    
16. End Function

复制代码

砂海

wp8680 发表于 2016-11-20 10:13

军牌未予考虑

a493850374

huangcaiguang 发表于 2013-10-23 11:49
不多就忽悠一下！

呜呜 好多步骤 操作错误