|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
PQ可以,就是水平有限写的复杂了点
let
源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
多行列改成列表 = Table.TransformColumns(源,List.Zip({List.FirstN(Table.ColumnNames(源),4),List.Repeat({each _},4)}),Splitter.SplitTextByDelimiter("#(lf)")),
合并多行列 = Table.CombineColumns(多行列改成列表 ,List.LastN(Table.ColumnNames(多行列改成列表),4),List.Zip,"合并列"),
展开成对应行数 = Table.ExpandListColumn(合并多行列, "合并列"),
列表转成记录 = Table.TransformColumns(展开成对应行数,{"合并列", each Record.FromList(_,List.LastN(Table.ColumnNames(源),4))}),
#"展开的“合并列”" = Table.ExpandRecordColumn(列表转成记录, "合并列", {"列5", "列6", "列7", "列8"}, {"列5", "列6", "列7", "列8"})
in
#"展开的“合并列”" |
|