【PowerQuery】如何一行程式碼搞定,做了一萬遍的工資條

HuaBro發表於2020-09-28

學過excel同學,工資條做了一萬遍。

前面已經瞭解了Excel、VBA、Python實現工資條,今天嘗試用PQ做一遍

做之前迷惑了很久,如何能自定義長度

 

 Table有Repeat函式,但是List沒有。看來另外想辦法

 

 

 

 一步步接近目標

 

 

 

 請出今天的主角

插入行:插入哪張表,插入行號(即索引0開始),插入內容(即行列表(記錄))

簡單點:什麼表。什麼位置,插入什麼資料

下面是單行和多行

 

 

 

 源資料:為了方便截圖,行數限制4行

 

 

第一次:隔行插入標題

= List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,y*2-2,{Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))}))

 

 第二次:插入空行

= List.Accumulate({1..Table.RowCount(b)-1},b,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList(Text.Split(Text.Repeat("a",Table.ColumnCount(b)-1),"a"),Table.ColumnNames(x))}))

 

 最後綜合:一次插入空行和標題

= List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList(Text.Split(Text.Repeat("a",Table.ColumnCount(源)-1),"a"),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))}))

 

 

 最後跳過表前2行

 

 ---------------------------------------------------------------------------------------------------------------------

如果用一行程式碼就是

= Table.Skip(List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList(Text.Split(Text.Repeat("a",Table.ColumnCount(源)-1),"a"),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))})),2)

對應高階編譯器

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    工資條 = Table.Skip(List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList(Text.Split(Text.Repeat("a",Table.ColumnCount(源)-1),"a"),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))})),2)
in
    工資條

 

------------------------------------------------------------緊急更新--替換 生成 重複 空列表演算法------------------------------------------

List有Repeat功能,我疏忽了,又被現實啪啪打臉

= List.Repeat({""},3)

 

 所有程式碼重新調整

第一次:不變

第二次:

= List.Accumulate({1..Table.RowCount(b)-1},b,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList( List.Repeat({""},Table.ColumnCount(b)),Table.ColumnNames(x))}))

 最後綜合:

= List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList( List.Repeat({""},Table.ColumnCount(b)),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))}))

一行程式碼:

= Table.Skip(List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList( List.Repeat({""},Table.ColumnCount(b)),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))})),2)

高階編譯器:

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    工資條 = Table.Skip(List.Accumulate({1..Table.RowCount(源)},源,(x,y)=>Table.InsertRows(x,(y-1)*3,{Record.FromList( List.Repeat({""},Table.ColumnCount(b)),Table.ColumnNames(x)),Record.FromList(Table.ColumnNames(x),Table.ColumnNames(x))})),2)
in
    工資條

 

相關文章