如何从单元格中分离出车牌号？

作者：绿色风分类：时间：2022-08-17 浏览：486

楼主 wise	Q：如何从单元格中分离出车牌号？ A：出牌号码都是以某省的简称开头的，先枚举出所有省份的简称，利用下列VBA代码可以方便地将下表“违规记录”中的出牌号码提取出来。 Private Sub CommandButton1_Click() Dim str2 As String Dim arr, arr1() Dim i As Long str2 = "（川蜀）京津沪渝冀豫（云滇）辽黑湘皖鲁新苏浙赣鄂桂（甘陇）晋蒙陕吉闽（贵黔）粤青藏宁琼台" arr = Range("A2", Range("A65536").End(xlUp)) ReDim arr1(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) For j = 1 To Len(arr(i, 1)) If str2 Like "" & Mid(arr(i, 1), j, 1) & "" And Mid(arr(i, 1), j + 1, 1) Like "[A-z]" Then arr1(i, 1) = arr1(i, 1) & Mid(arr(i, 1), j, 7) End If Next j Next i Range("C2").Resize(UBound(arr), 1) = arr1 [C1] = "车牌号" End Sub VBA取车牌号.rar
2楼 200240	留个记号，学习一下VBA
3楼 rongjun	学习下代码
4楼 yaoandxu2011	不懂代码的我还是用函数吧
5楼 bluexuemei	学习了!
6楼 bluexuemei	arr1(i, 1) = arr1(i, 1) & Mid(arr(i, 1), j, 7)这个红色部分多余吧

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

评论列表