PQ求助，一列数字，按照指定数字依次分段

AbleZeng

各位老师，想达到下图效果，求指教。

数字依据分段.zip (43.15 KB, 下载次数: 6)

2019-11-23 12:45 上传

点击文件名下载附件

deadzlq

PQ参考解法

AbleZeng

deadzlq 发表于 2019-11-23 13:38
PQ参考解法

感谢老师，学习消化一下

飞天篮球猪

fyi...这个数据量大时，效率不错

1. let
   
2.     源1 = Excel.CurrentWorkbook(){[Name="数字"]}[Content],
   
3.     源2 = Excel.CurrentWorkbook(){[Name="分组依据"]}[Content],
   
4. 
   
5.     gen = let a = List.Buffer(源1[数字]),
   
6.               b = List.Buffer(源2[分组依据]),
   
7.               n = List.Count(b)
   
8.            in List.Skip(
   
9.                         List.Generate( ()=>{"",0,0},
   
10.                                        each _{2}<=n,
    
11.                                        each { Text.Format("{#{0}..#{1}}",{a{_{1}},a{_{1}+b{_{2}}-1}}),
    
12.                                               _{1}+b{_{2}},
    
13.                                               _{2}+1 },
    
14.                                        each _{0} ) )
    
15. in
    
16.     gen

复制代码

飞天篮球猪

accumulate 数据量大时容易溢出

1. let
   
2.     源1 = Excel.CurrentWorkbook(){[Name="数字"]}[Content],
   
3.     源2 = Excel.CurrentWorkbook(){[Name="分组依据"]}[Content],
   
4. 
   
5.     acc = let a = List.Buffer(源1[数字]),
   
6.               b = List.Buffer(源2[分组依据])
   
7. 
   
8.            in List.Accumulate( b,
   
9.                               {{},0},
   
10.                               (s,c)=>{ s{0} &
    
11.                                        {Text.Format("{#{0}..#{1}}",{a{s{1}},a{s{1}+c-1}})},
    
12.                                       s{1}+c }
    
13.                               ){0}
    
14. in
    
15.     acc

复制代码

AbleZeng

飞天篮球猪 发表于 2019-11-24 11:54
fyi...这个数据量大时，效率不错

篮球大佬，终于看懂了，思路太牛了。

libo5563

let
    源1 = Excel.CurrentWorkbook(){[Name="数字"]}[Content][数字],
    源2 = Excel.CurrentWorkbook(){[Name="分组依据"]}[Content][分组依据],
    自定义1 = List.Transform(List.Accumulate({1..List.Count(源2)-1},
                                                {{源1{0},源2{0}}},
                                                (x,y)=>let                                          
                                                          a=List.Sum(List.FirstN(源2,y))+1,                             
                                                          b=a+源2{y}-1                                    
                                                        in x&{{a..b}}                                                   
                                ),each Text.From(List.First(_)) &".." & Text.From(List.Last(_))   )
   
in
    自定义1



好歹把数字凑出来了，List.Generate 目前还搞不定

xingbiao

向大神学习，年龄大了，学的费劲了