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

飞天篮球猪

Holiday2022 发表于 2024-2-28 08:57
您这个是怎么运行的？我的excel没有spl这样的函数，这是sql语法吗？

打扰了，兄弟。这是目前比较小众的国产编程语言，有兴趣可以去了解一下集算器。
你这个运用场景的数据多不多，不可能就这么几条数据吧？

Holiday2022

咔咔乱坠 发表于 2024-2-28 09:42
c的解释有一点点问题，应为从b中取出第x列，将取出的结果（行政编码）和根据取出结果查找的地名横向堆积

谢谢，是的。我以前用choosecols，参数都是数字，这下没反应过来。我又学到一种新用法了

象山海鲜

Holiday2022 发表于 2024-2-28 09:58
象山海鲜老师您好，为什么TRUNC函数第2参数是-y-3，该参数为负数也没啥作用吧？

REDUCE 本来就是数组运算的，是基本功能~！

TRUNC的第二参数看下面的结果，注意小数点位置和二参的关联。

TRUNC(123.45,1)=123.4                         小数点右边1位后面的数字都为0
TRUNC(123.45)=TRUNC(123.45,0)=123   小数点后面的数字都为0
TRUNC(123.45,-1)=120                           小数点左边1位后面的数字都为0
TRUNC(123.45,-2)=100                           小数点左边2位后面的数字都为0

Holiday2022

象山海鲜 发表于 2024-2-28 10:21
REDUCE 本来就是数组运算的，是基本功能~！

TRUNC的第二参数看下面的结果，注意小数点位置和二参的关 ...

原来如此，第一次使用这个函数，谢谢！

静听溪流

Holiday2022 发表于 2024-2-28 08:57
您这个是怎么运行的？我的excel没有spl这样的函数，这是sql语法吗？

估计要下载SPL软件或者插件

Holiday2022

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

谢谢您的帮助！VBA是真的好用，所有回答中，这个代码是运行速度最快的（受益于使用了数组）。看了您这个案例后，我以后可能更愿意去使用vba了。结合我自己的学习和理解，对代码进行了注释：

1. Sub 整理()
   
2.     Dim arr, i, n, m
   
3.     m = Cells(Rows.Count, "a").End(3).Row
   
4.     'End(3)等价于End(xlUp)
   
5.     arr = Range("a2:b" & m)
   
6.     '从"A"列的第二行到最后一个有数据的行之间的数据（包括第二行）读入一个二维数组arr中。
   
7.     '然后，通过一个循环遍历数组arr中的每一行数据进行条件判断和整理。
   
8. 
   
9.     ReDim b(1 To UBound(arr), 1 To 8)
   
10.     For i = 2 To UBound(arr)
    
11. 
    
12.     '以下循环的逻辑：
    
13.     '如果某行数据的第1列的第3至第9位是 "0000000"，那么将该行数据的前6位和第2列的值分别赋值给se1和se2。
    
14.     '如果某行数据的第1列的第5至第9位是 "00000"，那么将该行数据的前6位和第2列的值分别赋值给si1和si2。
    
15.     '如果某行数据的第1列的第7至第9位是 "000"，那么将该行数据的前6位和第2列的值分别赋值给x1和x2。
    
16.     '如果都不满足上述条件，将该行数据的前6位和第2列的值存入新的数组b中，并递增n。
    
17.         
    
18.         If Mid(arr(i, 1), 3, 7) = "0000000" Then ''''''''''1，第1个if语句，下同
    
19.             se1 = Mid(arr(i, 1), 1, 6): se2 = arr(i, 2)
    
20.             '用冒号：可以将多行短代码合并成一行代码
    
21.         Else
    
22.             If Mid(arr(i, 1), 5, 5) = "00000" Then  ''''''''''2
    
23.                 si1 = Mid(arr(i, 1), 1, 6): si2 = arr(i, 2)
    
24.             Else
    
25.                 If Mid(arr(i, 1), 7, 3) = "000" Then ''''''''''3
    
26.                     x1 = Mid(arr(i, 1), 1, 6): x2 = arr(i, 2)
    
27.                 Else
    
28.                     n = n + 1   ''''''''''4，将内容放到数组中
    
29.                     b(n, 1) = se1: b(n, 2) = se2
    
30.                     b(n, 3) = si1: b(n, 4) = si2
    
31.                     b(n, 5) = x1: b(n, 6) = x2
    
32.                     b(n, 7) = arr(i, 1): b(n, 8) = arr(i, 2)
    
33.                 End If ''''''''''3
    
34.             End If ''''''''''2
    
35.         End If ''''''''''1
    
36.     '横向堆叠的时候，容易把省、市、县的内容在镇级中重新堆叠一次，出现镇列与原数据相同的情况，
    
37.     '这里特别巧妙，用循环结构把这种情况排除出去了，只要行政区划代码的最后7位是0，就不会运行代码4，因此也就不用考虑错行的问题   
    
38.     Next
    
39. 
    
40.     '清空"E4:L"区域的内容，然后将整理好的数组b写入到"E3"开始的区域中，共n行8列
    
41.     Range("E4:L" & Rows.Count).ClearContents
    
42.     Range("e3").Resize(n, 8) = b
    
43.    
    
44. End Sub

复制代码

Holiday2022

飞天篮球猪 发表于 2024-2-28 10:01
打扰了，兄弟。这是目前比较小众的国产编程语言，有兴趣可以去了解一下集算器。
你这个运用场景的数据多 ...

所有的数据都在这了

Holiday2022

miaojohn45 发表于 2024-2-27 21:20
根据四级编码，依次生成3，2，1及编码：
最后vlookup查出对应中文信息（仅举例一个，其它类同）：

简明易懂的方法，谢谢！我已按您提供的方法实现我的需求！

橒♂蝣

=LET(
s,REDUCE("",--A3:A44982,LAMBDA(x,y,VSTACK(x,UNIQUE(HSTACK(XLOOKUP(ROUND(y,-7),--A:A,A:B),XLOOKUP(ROUND(y,-5),--A:A,A:B),XLOOKUP(ROUND(y,-3),--A:A,A:B),XLOOKUP(ROUND(y,0),--A:A,A:B)),1)))),
rr,FILTER(s,ISTEXT(INDEX(s,,8))),
rr
)

飞天篮球猪

Holiday2022 发表于 2024-2-28 13:07
所有的数据都在这了

那随意...5万行数据对效率没啥影响。
估计公式耗时5秒左右，vba耗时2秒左右。
集算器敲完回车就出结果。