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

ugyun · 发表于 2013-11-9 19:28

本帖最后由 ugyun 于 2013-11-9 19:29 编辑

各位老师：
如何完善本表中的代码，实现：点“提取省市”，根据A列户名中的县市区，在表“省市县代码对照表”中查找所在的省市县（区），将结果返回D列，代码已基本实现。
现在问题是，少数县市名很难完全匹配，例如黄色区域部分，每次提取都覆盖了原有的数据，现在想点“提取省市”，只提取非黄色区域的部分，黄色部分不覆盖

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

匹配省市县区.zip (85.75 KB, 下载次数: 468)

ugyun · 发表于 2013-11-10 09:29

哪位老师帮帮我，不然工作量太大

KCFONG · 发表于 2013-11-10 10:14

I had 完善本表中的代码, please test

ugyun · 发表于 2013-11-10 20:11

KCFONG 发表于 2013-11-10 10:14
I had 完善本表中的代码, please test

KCFONG 老师：
真的非常感谢您，这么难的问题都解决得差不多了，现在就几个少数民族的不能完全正确匹配，我已经用红色标注出来了，要是能进一步解决，那更好，如果难度太大，就算了。

现在想请老师帮忙把D列和E列的内容整合在一起放在D列，用代码完成，因为这个表的E列存有其他数据，如果这样提取，就全丢了，再次谢谢老师！

匹配省市县区（再次求助）.rar (71.75 KB, 下载次数: 166)

ugyun · 发表于 2013-11-10 20:15

KCFONG 发表于 2013-11-10 10:14
I had 完善本表中的代码, please test

这个问题以前也在这个论坛中求助过，老师的代码是最完美的一个，匹配率高，太让人兴奋了，帮了大忙

yjh_27 · 发表于 2013-11-10 21:05

本帖最后由 yjh_27 于 2013-11-10 21:15 编辑

ugyun 发表于 2013-11-10 20:11
KCFONG 老师：
真的非常感谢您，这么难的问题都解决得差不多了，现在就几个少数民族的不能完全正确匹配， ...

之所以出现这种情况：

巴马县劳动保险所基金专户

巴马瑶族自治县

中间夹有其他字符。解决方法是增加巴马县记录。

但是如果巴马劳动保险所基金专户
也会找不到。

yjh_27 · 发表于 2013-11-10 21:18

· 雷同字符提取函数自定义函数

14L、15L

请参考

KCFONG · 发表于 2013-11-10 21:37

see if fit your request

chxw68 · 发表于 2013-11-11 09:56

我是用正则表达式做的，准确率高，但不能模糊匹配，供参考。

Sub test()
Dim reg1 As Object
Dim arr1, arr2
Dim r1, r2, i, j As Integer
Set reg1 = CreateObject("vbscript.regexp")
arr1 = Worksheets("省市县代码对照表").UsedRange
arr2 = Worksheets("账户信息").UsedRange
r1 = UBound(arr1)
r2 = UBound(arr2)
reg1.Global = False
fla = False
For i = 2 To r2
fla = False
For j = 2 To r1
reg1.Pattern = arr1(j, 4)
If reg1.test(arr2(i, 1)) Then
arr2(i, 3) = arr1(j, 2) & arr1(j, 3) & arr1(j, 4)
Exit For
Else
arr2(i, 3) = ""
End If
Next
Next
Worksheets("账户信息").Range("c1").Resize(r2, 1) = Application.Index(arr2, 0, 3)
End Sub

复制代码

ugyun · 发表于 2013-11-11 19:40

本帖最后由 ugyun 于 2013-11-11 19:52 编辑

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

感谢，可以参考，要是能模糊匹配就好了

		自动登录	找回密码
密码			免费注册

[求助] 如何根据县市区匹配所在省市县区

评分

评分

点评

评分