使用PQ实现

14820103

比翼双飞880717 发表于 2023-6-24 09:26
我也是用的这种办法，就想看看高级点的写法

已经把回帖的大神们的方法都学习了。

14820103

渡渡orz 发表于 2023-6-24 11:47

大神能把注解和关键知识点也描述下指导性更强。

denislxm

let
    源 = Excel.CurrentWorkbook(){[Name="表2"]}[Content],
    自定义1 = Table.Group(源,"编号",{"n",each Text.Combine({Text.Combine([日期],"/"),Text.Combine([结果],"/")} ,";")}  ),
    按分隔符拆分列 = Table.SplitColumn(自定义1, "n", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"日期", "结果"}),
    按分隔符拆分列1 = Table.SplitColumn(按分隔符拆分列, "日期", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"日期.1", "日期.2", "日期.3"}),
    A = Table.SplitColumn(按分隔符拆分列1, "结果", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"结果.1", "结果.2", "结果.3"}),
    自定义2 = Table.PromoteHeaders(Table.FromRows({List.Transform(Table.ColumnNames(A) ,(x)=>Text.Replace(x,".",""))}&Table.ToRows(A)))
in
    自定义2[img][/img]

denislxm

let
    源 = Excel.CurrentWorkbook(){[Name="表2"]}[Content],
    自定义1 = Table.Group(源,"编号",{"n",each Text.Combine({Text.Combine([日期],"/"),Text.Combine([结果],"/")} ,";")     }             ),
    按分隔符拆分列 = Table.SplitColumn(自定义1, "n", Splitter.SplitTextByDelimiter(";", QuoteStyle.Csv), {"日期", "结果"}),
    按分隔符拆分列1 = Table.SplitColumn(按分隔符拆分列, "日期", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"日期.1", "日期.2", "日期.3"}),
    A = Table.SplitColumn(按分隔符拆分列1, "结果", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"结果.1", "结果.2", "结果.3"}),
    自定义2 = Table.PromoteHeaders(Table.FromRows({List.Transform(Table.ColumnNames(A) ,(x)=>Text.Replace(x,".",""))}&Table.ToRows(A)))
in
    自定义2

hbzql

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    自定义1 = Table.Group(源,"编号",{"分组",each [a=Table.ToColumns(Table.Sort(_,"日期")),b=Table.RowCount(_),c=List.Accumulate({1..b},[],(x,y)=>[m=Record.AddField(x,"日期"&Text.From(y),a{1}{y-1}),n=Record.AddField(m,"结果"&Text.From(y),a{2}{y-1})][n])][c]}),
    自定义2 = Table.ExpandRecordColumn(自定义1,"分组",List.TransformMany({"日期","结果"},(x)=>{1..3},(x,y)=>x&Text.From(y)))
in
    自定义2

maoxiong1999

let
    源 = Table.Sort(Excel.CurrentWorkbook(){[Name="表1"]}[Content],"日期"),
    a = Table.Combine(Table.Group(源,"编号",{"t",each Table.FromRecords({[编号=[编号]{0}]&Record.Combine(
        List.Accumulate(Table.ToList(_,each _),{{},1},(x,y)=>[m=Number.ToText(x{1},"00"),n={x{0}
        &{Record.FromList({y{1},y{2}},{"日期"&m,"结果"&m})},x{1}+1}][n]){0})})})[t]),
    b = Table.ReorderColumns(a,List.Sort(List.Skip(Table.ColumnNames(a))))
in
    b

bjzzxhzl

动态标题：

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    数据 = List.Zip(Table.Group(源,"编号",{"t",each let s=Table.ToColumns(_) in List.FirstN(s{0},1)&List.Combine(List.Skip(s))})[t]),
    标题 = {"编号"}&List.Combine(List.Zip(List.Transform({1..Number.IntegerDivide(List.Count(数据),2)},each [t=Text.From(_),r={"日期"&t,"结果"&t}][r]))),
    结果 = Table.FromColumns(数据,标题)
in
    结果

maoxiong1999

bjzzxhzl 发表于 2023-7-9 07:23
动态标题：
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],

兄弟，你是连楼主的题意都没看懂啊

maoxiong1999

hbzql 发表于 2023-6-26 01:23
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    自定义1 = Table.Group(源,"编号",{ ...

大哥，你这个只能显示日期1-日期3、结果1-结果3，不符合要求啊，自己写完都不验证一下的么

bjzzxhzl

maoxiong1999 发表于 2023-7-9 09:55
兄弟，你是连楼主的题意都没看懂啊

你比题主还着急，我确实没写完没再看了，不过主体结构对的，就是标题有点乱，已修改。