一道 局部分组 题。有没更简单的方法？

cnmlgb9998

如图所示。。。。。。。。。。。。。。。。。

不增加辅助索引列！！！！！！！


请大神出手，有没更方便的办法？ 递归 也行！

deadzlq

PQ参考解法

tcdatongye

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表3"]}[Content],
   
3.     已添加自定义 = Table.AddColumn(源, "自定义", each
   
4.                  [ xa=Text.SplitAny([数据],",，"),
   
5.                    xd=List.Transform(xa,each Number.From(Text.Select(_,{"0".."9"}))),
   
6.                    xm=List.Accumulate(List.Positions(xa),[tag=0,tol={}],(x,y)=>if Number.Abs(xd{y}-xd{y+1}?)<>1 then
   
7.                      [tag=y+1,tol=x[tol]&{(if x[tag]=y then "" else xa{x[tag]}&":")&xa{y}}] else x ),//连续区域界内不变。
   
8.                    xn=Text.Combine(xm[tol],",") ][xn])         
   
9. in
   
10.    已添加自定义

复制代码