根据县提取所属城市，根据城市提取省份

uf2011

根据县提取所属城市，根据城市提取省份

doitbest

你想要的“市”应该是地级市吧，但是你的参考数据中并没有明确的地级市信息
例如“阿瓦提县中国人民银行阿瓦提县支行”，能找到县，却难以找到对应的市

yjh_27

如何根据县市区匹配所在省市县区
http://club.excelhome.net/thread-1070539-1-1.html

yjh_27

公式不全对
24行:安新县错为新县

doitbest

1. Public Sub abc()
   
2. Dim ar, br, cr(), i, str, rep, it, k, tmp, strall
   
3. Dim d As Object
   
4. Set d = CreateObject("Scripting.Dictionary")
   
5. Set rep = CreateObject("vbscript.regexp")
   
6. rep.Global = True
   
7. ar = Range([j2], [k65536].End(3))
   
8. br = Range([b3], [b65536].End(3))
   
9. ReDim cr(1 To UBound(br), 1 To 2)
   
10. For i = 1 To UBound(ar) - 1
    
11.     If InStr(ar(i, 2), "地区") > 0 Or InStr(ar(i, 2), "自治州") > 0 Or (Right(ar(i, 2), 1) = "市" And Right(ar(i + 1, 2), 1) = "区") Then
    
12.         str = ar(i, 2)
    
13.         d(Left(ar(i, 2), 2)) = str
    
14.     Else
    
15.         If ar(i, 2) <> ar(i, 1) Then d(Left(ar(i, 2), 2)) = str
    
16.     End If
    
17.     If ar(i, 2) <> ar(i, 1) And ar(i, 2) <> "市辖区" Then
    
18.         If Len(ar(i, 2)) > 2 Then
    
19.             tmp = Replace(Replace(ar(i, 2), "市", ""), "县", "")
    
20.         ElseIf Len(ar(i, 2)) = 2 Then
    
21.             tmp = ar(i, 2)
    
22.         End If
    
23.         strall = strall & IIf(strall = "", "", "|") & tmp
    
24.     End If
    
25. Next
    
26. d(ar(UBound(ar), 2)) = str
    
27. it = d.items: k = d.keys
    
28. For i = 1 To UBound(br)
    
29.     rep.Pattern = "^(北京[市]*|上海[市]*|天津[市]*|重庆[市]*|河北[省]*|山西[省]*|辽宁[省]*|吉林[省]*|黑龙江[省]*|江苏[省]*|浙江[省]*|安徽[省]*|福建[省]*|江西[省]*|山东[省]*|河南[省]*|湖北[省]*|湖南[省]*|广东[省]*|海南[省]*|四川[省]*|贵州[省]*|云南[省]*|陕西[省]*|甘肃[省]*|青海[省]*|西藏[自治区]*|内蒙古[自治区]*|广西[壮族自治区]*|宁夏[回族自治区]*|新疆[维吾尔自治区]*)"
    
30.     str = rep.Replace(br(i, 1), "")
    
31.     If d.exists(Left(str, 2)) Then
    
32.         cr(i, 2) = d(Left(str, 2))
    
33.         cr(i, 1) = [k:k].Find(d(Left(str, 2)), , , 1).Offset(, -1)
    
34.     Else
    
35.         rep.Pattern = "..(市|县)"
    
36.         If rep.test(str) = True Then
    
37.             tmp = rep.Execute(str)(0)
    
38.             If Not [k:k].Find(tmp, , , 2) Is Nothing Then
    
39.                 tmp = [k:k].Find(tmp, , , 2)
    
40.                 cr(i, 2) = d(Left(tmp, 2))
    
41.                 cr(i, 1) = [k:k].Find(cr(i, 2), , , 1).Offset(, -1)
    
42.             End If
    
43.         End If
    
44.     End If
    
45.     If cr(i, 2) = "" Then
    
46.         rep.Pattern = "北京|上海|天津|重庆|香港|澳门"
    
47.         If rep.test(br(i, 1)) = True Then
    
48.             cr(i, 2) = rep.Execute(br(i, 1))(0)
    
49.             cr(i, 1) = cr(i, 2)
    
50.         End If
    
51.     End If
    
52.     If cr(i, 2) = "" Then
    
53.         rep.Pattern = strall
    
54.         If rep.test(br(i, 1)) = True Then
    
55.             cr(i, 2) = d(Left(rep.Execute(br(i, 1))(0), 2))
    
56.             If rep.Execute(br(i, 1)).Count > 1 Then
    
57.                 If rep.Execute(br(i, 1))(0) <> rep.Execute(br(i, 1))(1) Then cr(i, 2) = cr(i, 2) & "*"
    
58.             End If
    
59.             cr(i, 1) = [k:k].Find(cr(i, 2), , , 1).Offset(, -1)
    
60.         End If
    
61.     End If
    
62. Next
    
63. [f3].Resize(i - 1, 2) = cr
    
64. End Sub

复制代码

doitbest

请参考附件，你提供的参考表已经过时，这是造成无法比对及比对错误的根本原因
加星号的存在比对错误可能，请手工核对

EXCELLMY

正则提取省市