1、首先呢，要启用宏
2、接着呢，插入模块
3、复制以下代码
Function qitu(rg As Range)
Dim re, m, mm
Dim arr(), a
'Stop
Set re = CreateObject("vbscript.regexp")
re.Global = True
re.Pattern = "[京津沪渝冀豫云辽黑湘皖鲁新苏浙赣鄂桂甘晋蒙陕吉闽贵粤青藏川宁琼使领A-Z][A-Z][A-Z0-9]{4}[A-Z0-9挂学警港澳]"
Set m = re.Execute(rg)
For Each mm In m
a = a + 1
ReDim Preserve arr(1 To a)
arr(a) = mm
Next mm
qitu = IIf(a = 1, arr(1), Join(arr, ","))
End Function
4、然后呢在工作表输入公式=qitu(a1)
