如何根据县市区匹配所在省市县区

heilangps

KCFONG 发表于 2013-11-10 21:37
see if fit your request

K大，小弟用了您给的这个 匹配省市县区（再次求助）V1，得到的结果如下，想请教如何把“剩余的地址”也输出在提取省市那一栏。比如图中原地址：“地址：210007江苏省南京市御道街53号“，提取之后变为”江苏省南京市市辖区御道街53号“，而不是”江苏省南京市市辖区”。谢谢大神

heilangps

KCFONG 发表于 2015-4-12 14:34
see if help you

KCFONG老师您好，我用了您这个匹配省市县区1次修改 v1.rar的文件，另存为07启用宏的格式之后，少量数据还是正常使用，当我将户名栏输入100W条数据后，点击提取省市就完全没有反应了，不会出现结果，我在宏里面把65536改成了1000000，但是没有用，想请教您应该怎么办?

cbtaja

heilangps 发表于 2016-4-6 12:48
KCFONG老师您好，我用了您这个匹配省市县区1次修改 v1.rar的文件，另存为07启用宏的格式之后，少量数据还 ...

应该是使用了工作表函数transpose。为兼容旧版，工作表函数transpose引用数组的最大行数为65536。要解决这样的问题，就直接用数组+循环处理来转置数据。

heilangps

cbtaja 发表于 2016-4-30 20:19
应该是使用了工作表函数transpose。为兼容旧版，工作表函数transpose引用数组的最大行数为65536。要解决 ...

好的，谢谢大神

EXCELLMY

正则提取省市县

小菜鸟的2015

chxw68 发表于 2013-11-11 09:56
我是用正则表达式做的，准确率高，但不能模糊匹配，供参考。

老师能帮忙指导一下么？入门菜鸟一枚，我用的您这种方式套上去在地址中取市，但是到If reg.test(arr2(i, 1)) Then 这里就中断了，没看明白是什么原因。明细表中O列为地址，如“”辽宁省大连市中山区**“、”北京朝阳区“、”西藏自治区山南市”，P列为取出的市~行政代码表中M列为国家行政地区市为嘛这里回复不能上附件的，好尴尬~~
代码：
Dim reg As Object
Dim arr1, arr2
Dim r1, r2, i, j
Set reg = CreateObject("vbscript.regexp")
arr1 = Sheets("明细表").Range("O2:P" & Cells(Rows.Count, "O").End(xlUp).Row)
arr2 = Sheets("行政代码表").Range("M2:M" & Cells(Rows.Count, "M").End(xlUp).Row)
r1 = UBound(arr1)
r2 = UBound(arr2)
reg.Global = False
fla = False
For i = 2 To r2
fla = False
For j = 2 To r1
reg.Pattern = arr1(j, 1)
If reg.test(arr2(i, 1)) Then
arr1(i, 2) = arr2(i, 1)
End If
Next j
Next i

lxgqwert

度娘到了这里，没解决问题，但是找到了个插件能解决这个问题了，留给大家备用。
Excel精灵，http://www.excelbbx.net/。

qclx2018

学习，留贴，感谢

ifrogz

更新了数据源，在前辈的代码中更新了部分代码，支持精确及模糊查找。请看附件

匹配省市县区 v2（2023年版）.rar (138.63 KB, 下载次数: 24)

2023-10-30 10:06 上传

点击文件名下载附件

Nestless

ifrogz 发表于 2023-10-30 10:06
更新了数据源，在前辈的代码中更新了部分代码，支持精确及模糊查找。请看附件

请教大神，这里是不是有内置的省市县列表，请问怎么能找到并修改。有些不带“市”“县”字样的项目名称，想匹配到省，请问怎样调整代码呢？谢谢大神