M函数批量添加计算列

情冇独钟

需求：指定需要计算的数量是哪几列，乘以指定的单价列，批量添加计算列（红框部分），
数量有十几列，我下面这个函数写的有点死，不方便后期维护，有没有更优化的写法，类似这样：{"数量1","数量2"}&"金额"={"数量1","数量2"}*单价
TEST.rar (13.74 KB, 下载次数: 11)

2025-1-19 21:17 上传

点击文件名下载附件

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     数量乘单价 = Table.AddColumn(源, "自定义", each Table.FromRecords({[数量1金额=[数量1]*[单价],数量2金额=[数量2]*[单价]]})),
   
4.     展开 = Table.ExpandTableColumn(数量乘单价, "自定义", {"数量1金额", "数量2金额"})
   
5. in
   
6.     展开

复制代码

wdx223

limonet

关键字：list.accumulate

limonet

= List.Accumulate(List.FindText(Table.ColumnNames(源),"数量"),源,(x,y)=>Table.AddColumn(x,y&"*单价",each (Record.Field(_,y)*Record.Field(_,"单价"))))

eni4

= List.Accumulate(List.Skip(Table.ColumnNames(源),2),源,(x,y)=>Table.AddColumn(x,y&"金额",(z)=>z[单价]*Record.Field(z,y)))

eni4

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    结果 = List.Accumulate(List.Skip(Table.ColumnNames(源),2),源,(x,y)=>Table.AddColumn(x,y&"金额",(z)=>z[单价]*Record.Field(z,y)))
in
    结果

情冇独钟

完美解决问题，感谢各位指导！

minchar

换个思路！
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    逆透视的列 = Table.UnpivotOtherColumns(源, {"编码", "单价"}, "属性", "值"),
    取总额 = 逆透视的列&Table.ReplaceValue(逆透视的列,null,each [单价],(x,y,z) => if x is number then x*z else x&"金额",{"属性","值"}),
    已透视列 = Table.Pivot(取总额, List.Distinct(取总额[属性]), "属性", "值")
in
    已透视列