把account的归类放在单独一列

shufeabb

把归类放在一列.zip (7.61 KB, 下载次数: 16)

2024-12-22 12:13 上传

点击文件名下载附件

dambcer

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表2"]}[Content],
   
3.   a = Table.ToRows(源),
   
4.   b = List.Accumulate(
   
5.     a,
   
6.     [result = {}, before = "", n = 0, du = {}],
   
7.     (s, c) =>
   
8.       if c{0} <> null then
   
9.         [result = s[result], before = c{0}, n = s[n], du = s[du] & {s[n]}]
   
10.       else if s[before] <> null then
    
11.         [result = s[result] & {c{1}}, before = c{0}, n = s[n] + 1, du = s[du]]
    
12.       else
    
13.         s
    
14.   ),
    
15.   c = List.Transform(b[du], each b[result]{_}),
    
16.   d = Table.ToColumns(Table.SelectRows(源, each ([Account] <> null))) & {c},
    
17.   return = Table.FromColumns(d, Table.ColumnNames(源) & {"Blank"})
    
18. in
    
19.   return

复制代码

飞天篮球猪

供参考...

cnmlgb9998

这样？？？？？？？？？？？



局部分组 一步到位。

cnmlgb9998

飞天篮球猪 发表于 2024-12-22 20:07
供参考...

飞天猪代码 的  算法和数据结构 都是无敌的存在。。。。。。太强了。

cnmlgb9998

递归思路，公式法。

cnmlgb9998

PQ 递归思路。。。。。。。



是不是更简单了？？？？？

deadzlq

PQ参考解法

wdx223

土匪远

供参考，利用向上填充即可实现。

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    判断 = Table.AddColumn(源, "自定义", each if [Account]=null then [Descriptions] else null ),
    填充 = Table.FillUp(判断,{"自定义"}),
    筛选 = Table.SelectRows(填充, each ([Account] <> null))
in
    筛选