如何从一堆数据 中查找新能源车牌

A1233515

自定义函数供参考

hxw0204

正则

[一-龥][A-Z]-?[0-9A-z]{5,6}

元気小飞侠

chenyun1234

用代码写，真不错

丢丢表格

624134745 发表于 2021-8-26 15:50
可以的，你提供全国各省的简称我帮你写。

不用 全国车牌的汉字冠，也能用公式写。  （首先车牌号必须写正确， 模拟中有错的）
=LEFTB(MID(A2,MATCH(6,LENB(MID(A2,ROW($2:$15),6)),),8),9)

黑衣人兄弟

丢丢表格 发表于 2021-8-27 13:25
不用 全国车牌的汉字冠，也能用公式写。  （首先车牌号必须写正确， 模拟中有错的）
=LEFTB(MID(A2,MATC ...

试用能成。就是过程看不懂。赞

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = False
   
7.     .Pattern = "[京津沪渝冀豫云辽黑湘皖鲁新苏浙赣鄂桂甘晋蒙陕吉闽贵粤青藏川宁琼][A-Z][\dA-Z]{5,6}"
   
8.   End With
   
9.   With Worksheets("sheet1")
   
10.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
11.     arr = .Range("a2:a" & r)
    
12.     ReDim brr(1 To UBound(arr), 1 To 1)
    
13.     For i = 1 To UBound(arr)
    
14.       Set mh = reg.Execute(arr(i, 1))
    
15.       If mh.Count > 0 Then
    
16.         brr(i, 1) = mh(0)
    
17.       End If
    
18.     Next
    
19.     .Range("c2").Resize(UBound(brr), 1) = brr
    
20.   End With
    
21. End Sub
    

复制代码

chxw68

正则表达式提取。