按省市县镇四级对列文本拆分

Holiday2022

基础知识：

本表提供的行政区划代码共有9位，从前往后的含义为别是：第1-2位代表省级行政区划，比如11代表北京；第3-4位、第5-6位、第7-9位分别代表地级、县级、镇级行政区划。于是：
县级行政区划相同的镇，代表属于同一个县（市、区）管辖；
地级行政区划相同的县（市、区），代表属于同一个地级市管辖；
省级行政区划相同的地级市，代表属于同一个省管辖。

如图，现在我有一列关于省市县镇的行政代码及相应数据，我想按省、市、县、镇4级展开，如何利用365函数、vba或者其他方式解决这一问题？谢谢各位老师！

橒♂蝣

=HSTACK(XLOOKUP(ROUND(--A79,-7),--A:A,A:B),XLOOKUP(ROUND(--A79,-5),--A:A,A:B),XLOOKUP(ROUND(--A79,-3),--A:A,A:B),XLOOKUP(ROUND(--A79,-1),--A:A,A:B))

Holiday2022

橒♂蝣 发表于 2024-2-27 20:25
=HSTACK(XLOOKUP(ROUND(--A79,-7),--A:A,A:B),XLOOKUP(ROUND(--A79,-5),--A:A,A:B),XLOOKUP(ROUND(--A79,-3 ...

您好，您填的E78=该公式，L78返回的结果是“黑庄户地区”，该地区在L74已出现过。并且，公式下拉，也会产生相同的地区。可能不能达成我的需求。

Holiday2022

我想要在E3输入一个公式，结果自动溢出，形成我要的结果。或者在e3输入公式后，右拉下拉形成我要的结果。

清风竹-

请看附件。VBA

miaojohn45

1. 转换编码，用来根据长度判断等级：

1. =--CONCAT(MID(A3,10-ROW($1:$9),1))

复制代码

2. 根据长度筛选四个等级的编码，同时将前三个等级编码转为6位：

1. =LEFT(FILTER(A3:A44982,(LEN(L3:L44982)=1)+(LEN(L3:L44982)=2)),6)

复制代码

1. =LEFT(FILTER(A3:A44982,(LEN(L3:L44982)=3)+(LEN(L3:L44982)=4)),6)

复制代码

三级，四级：

1. =LEFT(FILTER(A3:A44982,(LEN(L3:L44982)=5)+(LEN(L3:L44982)=6)),6)

复制代码

1. =FILTER(A3:A44982,LEN(L3:L44982)>6)

复制代码

miaojohn45

根据四级编码，依次生成3，2，1及编码：

1. =INDEX(O$3#,MATCH(LEFT(W3,6),O$3#,))

复制代码

1. =INDEX(N$3#,MATCH(LEFT(U4,4)&"*",N$3#,))

复制代码

1. =INDEX(M$3#,MATCH(LEFT(S3,2)&"*",M$3#,))

复制代码

最后vlookup查出对应中文信息（仅举例一个，其它类同）：

1. =VLOOKUP(Q3&"000",$A:$B,2,)

复制代码

Holiday2022

清风竹- 发表于 2024-2-27 21:12
请看附件。VBA

谢谢神

Holiday2022

miaojohn45 发表于 2024-2-27 21:14
1. 转换编码，用来根据长度判断等级：

似乎是一种很好的算法，我明天学习研究一下

Holiday2022

清风竹- 发表于 2024-2-27 21:12
请看附件。VBA

代码好简洁。我本来自己想的是用reduce来循环的，比我的想法简单太多了！我好好研究一下！