如何根据不规则的籍贯信息拆分省市区县

xiaowu8178 · 发表于 2020-2-12 09:24

求助各位大神，自己从网上找了很多办法，但是都没有成功，麻烦大佬们给个解决方案。主要是籍贯信息不规则，很多不是标准的省市区县这样填的

附件

籍贯信息拆分省市区县.rar (12.44 KB, 下载次数: 66)

solextrade · 发表于 2020-2-12 09:44

这个问题需要全国省市区的对应资料才能完成。
单纯的拆分，济宁市怎么能拆出山东省？

xiaowu8178 · 发表于 2020-2-12 11:05

solextrade 发表于 2020-2-12 09:44
这个问题需要全国省市区的对应资料才能完成。
单纯的拆分，济宁市怎么能拆出山东省？

全国省市区模板.rar (44.48 KB, 下载次数: 25)

我搜了一个对应模板不知道能否应用

solextrade · 发表于 2020-2-12 11:52

数据量大了，电脑濒临崩溃

全国省市区模板22.rar (48.61 KB, 下载次数: 109)

xiaowu8178 · 发表于 2020-2-12 12:13

solextrade 发表于 2020-2-12 11:52
数据量大了，电脑濒临崩溃

妈呀谢谢大佬是不是如果需要其他替换的直接换上然后下拉公式就可以？我得好好研究一下谢谢谢谢谢谢谢谢

grldrkjhuy · 发表于 2020-2-12 15:18

本帖最后由 grldrkjhuy 于 2020-2-12 15:30 编辑

solextrade 发表于 2020-2-12 11:52
数据量大了，电脑濒临崩溃

=LOOKUP(1,0/FREQUENCY(-9^9,-MMULT((1-ISERR(FIND(MID($B2,COLUMN($A:$Z),1),PHONETIC(OFFSET(全国省市区!$A$1:$C$1,ROW($1:$2866),)))))*(30-COLUMN($A:$Z)),ROW(1:26)^0)),全国省市区!A$2:A$3)

老师：红色部详细解释一下好吗？为何用30 ，范围是($A:$Z）（是不是重复次数的计数？），行ROW(1:26)等等，谢谢

solextrade · 发表于 2020-2-12 15:33

($A:$Z）不是范围，而是横向1~26的数字。ROW(1:26)^0 是得到纵向的26个1。这个公式有些深度，会写不会讲。

YZC51 · 发表于 2020-2-12 19:57

本帖最后由 YZC51 于 2020-2-12 20:02 编辑

solextrade 发表于 2020-2-12 11:52
数据量大了，电脑濒临崩溃

学习老师的强大公式。谢谢老师！
Sub test()
Application.ScreenUpdating = False '关闭屏幕刷新
With Sheet2
      myr = .Cells(.Rows.Count, 1).End(xlUp).Row
      For i = 2 To myr
         .Cells(i, 3) = "=LOOKUP(1,0/FREQUENCY(-9^9,-MMULT((1-ISERR(FIND(MID($B" & i & ",COLUMN($A:$Z),1),PHONETIC(OFFSET(全国省市区!$A$1:$C$1,ROW($1:$2866),)))))*(30-COLUMN($A:$Z)),ROW(1:26)^0)),全国省市区!A$2:A$3)"
         .Cells(i, 4) = "=LOOKUP(1,0/FREQUENCY(-9^9,-MMULT((1-ISERR(FIND(MID($B" & i & ",COLUMN($A:$Z),1),PHONETIC(OFFSET(全国省市区!$A$1:$C$1,ROW($1:$2866),)))))*(30-COLUMN($A:$Z)),ROW(1:26)^0)),全国省市区!B$2:B$3)"
         .Cells(i, 5) = "=LOOKUP(1,0/FREQUENCY(-9^9,-MMULT((1-ISERR(FIND(MID($B" & i & ",COLUMN($A:$Z),1),PHONETIC(OFFSET(全国省市区!$A$1:$C$1,ROW($1:$2866),)))))*(30-COLUMN($A:$Z)),ROW(1:26)^0)),全国省市区!C$2:C$3)"
         .Range("C" & i & ":E" & i) = .Range("C" & i & ":E" & i).Value
      Next
End With
Application.ScreenUpdating = True
End Sub

YZC51 · 发表于 2020-2-12 20:06

附件仅供参考

全国省市区模板22.rar (124.41 KB, 下载次数: 65)

YZC51 · 发表于 2020-2-12 20:20

简化下
Sub test()
Application.ScreenUpdating = False '关闭屏幕刷新
With Sheet2
      myr = .Cells(.Rows.Count, 1).End(xlUp).Row
      x = "=LOOKUP(1,0/FREQUENCY(-9^9,-MMULT((1-ISERR(FIND(MID($B"
      y = ",COLUMN($A:$Z),1),PHONETIC(OFFSET(全国省市区!$A$1:$C$1,ROW($1:$2866),)))))*(30-COLUMN($A:$Z)),ROW(1:26)^0))"
      z1 = ",全国省市区!A$2:A$3)": z2 = ",全国省市区!B$2:B$3)": z3 = ",全国省市区!C$2:C$3)"

      For i = 2 To myr
         .Cells(i, 3) = x & i & y & z1
         .Cells(i, 4) = x & i & y & z2
         .Cells(i, 5) = x & i & y & z3
         .Range("C" & i & ":E" & i) = .Range("C" & i & ":E" & i).Value
      Next
End With
Application.ScreenUpdating = True
End Sub

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

[求助] 如何根据不规则的籍贯信息拆分省市区县

评分

评分

最新热点 /1