大神请进，根据省市区县对应表自动提取快递大头笔

gbgbxgb · 发表于 2016-5-22 04:38

上个图片，Show一下，等高手：

long237043787 · 发表于 2016-5-22 11:35

simon5412 发表于 2016-5-22 01:19
看看这个是否符合。。。。

上海市浦东新区宣桥镇三灶金光4组555号苏无锡 31

实际应该是：沪浦东 26

long237043787 · 发表于 2016-5-22 11:37

gbgbxgb 发表于 2016-5-22 04:38
上个图片，Show一下，等高手：

附件中没有看到对应脚本？

simon5412 · 发表于 2016-5-22 12:34

用时的那段代码没什么用，觉得没必要就删掉

Sub 找()
Dim r As Range
[b2:d84].ClearContents
t = Timer
Application.ScreenUpdating = False
For i = 2 To Sheet1.Range("a65536").End(xlUp).Row
For k = 0 To -3 Step -1
For j = 2 To 3913
If Sheet2.Cells(j, 4).Offset(0, k) = "*" Then
m = "aaaaaa"
Else
m = Sheet2.Cells(j, 4).Offset(0, k).Value
End If
Set r = Sheet1.Range("a" & i).Find(m, , , xlPart)
If Not r Is Nothing Then
Cells(i, 2) = Sheet2.Cells(j, "e")
Cells(i, 3) = Sheet2.Cells(j, "f")
GoTo line
End If
Next
Next
line:
Next
Application.ScreenUpdating = True
[e1] = "用时" & Format(Timer - t, "0.000000s")
End Sub

复制代码

gbgbxgb · 发表于 2016-5-22 12:37

long237043787 发表于 2016-5-22 11:37
附件中没有看到对应脚本？

不会给代码的，正如前楼层所说，“等高手”。

广西壮族自治区→广西
广东省→广东
西藏自治区→西藏
香港特别行政区→香港

诸如上述不规范的数据，代码多次反复编写调试，花了近5、6个小时，且其间的工作量没有一点技术性，岂肯为了博个“谢”字给了代码。

另：之所以Show一个，也有私心，是想看他（她）人写的码与我的代码结果比对，其精确度如何，故提供了不含代码的文件供其参考（假设其有心参考的话）。但估计此活无人肯再写了，楼上有两位写了，第一位的用公式（从前后跟帖内容判断），想来，简直可笑，所以不曾下载，第二位的附件下载了，但与本人的代码结果比较，其精准度差太远（且速度相对慢多了，亏其自我感觉良好，还提供了代码运行时长）。

long237043787 · 发表于 2016-5-22 13:40

其实不规范的地方，可以在Sheet2里面增加对应辅助列，如广西壮族自治区--广西，可以单独用广西另
做一行，如果查询到对应的广西，即提取正确的大头笔解决。例如一些曾用名，需要排除的干扰词等情
况都可以单独用辅助列进行精准判断，优先判断需要剔除的词汇，曾用名，然后是按四级地址，区县，
城市，省份的顺序精准匹配提取，代码只用规范提取最适合行的大头笔。

如白云区：

省份       城市       区县       四级地址       大头笔       包编号
贵州省          贵阳市       白云区             *       贵贵阳       133
内蒙古自治区    包头市       白云鄂博矿区       *       蒙包头       97
广东省          广州市       白云区             *       粤广州       62

long237043787 · 发表于 2016-5-23 10:07

可以参考yjh_27大大的22楼附件，按省市区先划分再提取正确的大头笔

http://club.excelhome.net/thread-1277778-3-1.html

等高手 +1 .

long237043787 · 发表于 2016-5-23 14:49

请大家帮顶，请大神出手，谢谢！

long237043787 · 发表于 2016-5-24 09:08

上传个大神的附件给大家参考。是先划分省市区县，捉取对应省市区县详细地址列，相对的，后续思路就是按省市区县提取对应大头笔即可。已考虑干扰字，重名，曾用名（曾用县）等。

yjh_27 · 发表于 2016-5-24 19:49

sheet2的省市县必须规范、与对照表一致。
这是应该也是可以做到的

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

[求助] 大神请进，根据省市区县对应表自动提取快递大头笔