求助：取差额绝对值最小数对应数的问题

yyyf8283

详情见附件，这个可以用PQ解决吗

sake.su

下班了。。。写下思路：
拆分为两个表
1，职工编码，均值 放一个表
2，薪级薪档对应的L00~L15，放一个表

表1 左外连接查询 表2 ， 展开
计算差值，筛选最小值确定薪级

dambcer

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    list1 = List.Transform(Table.ToRows(源), each  List.Transform(List.Skip(_,3),(x)=>Number.Round(Number.Abs(x-_{1}),2))),
    pot = List.Transform(list1,each List.PositionOf(_,List.Min(_))),
    已添加自定义 = Table.AddColumn(源, "结果", each List.Skip(Table.ColumnNames(源),3){pot{List.PositionOf(源[职工编码],[职工编码])}})

in
  已添加自定义

yyyf8283

dambcer 发表于 2022-5-27 18:41
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    list1 = List.Transform(Table.ToRo ...

谢谢大神,解了燃眉之急，万分感谢

yyyf8283

dambcer 发表于 2022-5-27 18:41
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    list1 = List.Transform(Table.ToRo ...

数据4000+多条，速度就有点慢了，有没有更快的

dambcer

yyyf8283 发表于 2022-5-28 10:28
数据4000+多条，速度就有点慢了，有没有更快的

白嫖还这多要求啊,没有快的了

luzwales

1. let
   
2.     Source = Table.CombineColumns(
   
3.         Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
   
4.         {"均值","0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"},
   
5.         (Result)=>
   
6.         let
   
7.         a = Result{0},
   
8.         b = List.Range(Result,1),
   
9.         c = List.Sum(
   
10.             List.Transform(
    
11.                 {0..15},each
    
12.                 if b{_} is null
    
13.                 then null
    
14.                 else
    
15.                     if (a>=b{_} and b{_+1} is null )
    
16.                     then _
    
17.                     else
    
18.                         if (a>=b{_} and a< b{_+1} )
    
19.                         then _
    
20.                         else null
    
21.             )
    
22.         )
    
23.         in "薪资"&Text.PadStart(Text.From(c),2,"0") ,
    
24.         "Result")
    
25. in
    
26.     Source

复制代码

yyyf8283

luzwales 发表于 2022-5-28 11:21

C:\Users\Administrator.DESKTOP-73R2N0A\Desktop\360截图20220528143248521.jpg

yyyf8283

luzwales 发表于 2022-5-28 11:21

显示：找不到表的15列呢，已解决，把字段名改成0-15即可，谢谢大神
经测试，速度确实快了，基本是秒出，但很多人的统计还是出错了，例如职工编码12804统计出来薪资0，但是按照规则应该是1，这种情况很普遍

luzwales

逻辑弄错了，以为是在>n, 小于n+1的范围就是n,更改下逻辑就OK了

1. = Table.CombineColumns(
   
2.         Excel.CurrentWorkbook(){[Name="Table1"]}[Content],
   
3.         {"均值","0","1","2","3","4","5","6","7","8","9","10","11","12","13","14","15"},
   
4.         (Result)=>let
   
5.         a = Result{0}, b = List.Range(Result,1),
   
6.         c = List.Sum(
   
7.             List.Transform(
   
8.                 {0..15},each if b{_} is null  then null
   
9.                 else
   
10.                     if (a>=b{_} and b{_+1} is null ) then _
    
11.                     else
    
12.                         if (a>=b{_} and a< b{_+1} )  then if Number.Abs(b{_}-a)>Number.Abs(b{_+1}-a) then _+1 else _
    
13.                         else null  )  )
    
14.         in "L"&Text.PadStart(Text.From(c),2,"0") , "Result")

复制代码