1、首先呢，要启用宏
2、接着呢，插入模块
3、复制以下代码Function qitu(rg As Range)Dim re, m, mmD坡纠课柩im arr(), a&垆杪屑丝#39;StopSet 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)
