此题 还有没有更简单的思路？？？？

cnmlgb9998

渡渡orz 发表于 2024-4-26 18:27
还是分组+索引比较容易操作

老师！厉害。优秀作品！

hbzql

let
  源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
    编号 = Table.FromColumns({[a=Table.AddColumn(源,"Data",each Text.From([编码1])&[编码2]),b=List.Accumulate(a[Data],{},(x,y)=>x& {y&  (Text.PadStart(Text.From(Number.From(Text.End(List.Last(List.Select(x,each Text.Contains(_,y))),6))+1),6,"0")?? "000001")})]},{"Data"})
in
    编号
不分组，不索引

sm629

试试：

1. let
   
2.   源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
   
3.     a = Table.ToRows(Table.TransformColumns(源,{},Text.From)),
   
4.     b = List.Accumulate({1..List.Count(a)},{},(x,y)=>x&{Text.Combine(a{y-1}&{Text.PadStart(Text.From(List.Count(List.Select(List.FirstN(a,y),each _=a{y-1}))),6,"0")})}),
   
5.     c = Table.FromColumns({b})
   
6. in
   
7.     c

复制代码