使用PQ实现

比翼双飞880717 · 发表于 2023-6-23 22:52

如图所示，需要用PQ将左表实现成右表的样子，谢谢帮助！

流浪星星 · 发表于 2023-6-24 08:22

使用PQ实现.zip (17.45 KB, 下载次数: 15)

流浪星星 · 发表于 2023-6-24 08:26

let
源 = Excel.CurrentWorkbook(){[Name = "表1"]}[Content],
分组的行 = Table.Group(
源,
"编号",
{
"tb",
each [
a = Table.Sort([[日期], [结果]], each [日期]),
b = List.Repeat(Table.ColumnNames(a), Table.RowCount(a)),
c = List.Transform({1, 0}, each List.Alternate(b, 1, 1, _)),
d = List.TransformMany(c, each {1 .. List.Count(_)}, (x, y) => x{y - 1} & Text.From(y)),
e = Table.Transpose(Table.FromValue(List.Combine(Table.ToColumns(a))), d)
][e]
}
),
结果 = [
a = List.Transform(分组的行[tb], each Table.ColumnNames(_)),
b = List.Max(List.Transform(a, each List.Count(_))),
c = List.Select(a, each List.Count(_) = b),
d = Table.ExpandTableColumn(分组的行, "tb", c{0})
][d]
in
结果

复制代码

14820103 · 发表于 2023-6-24 08:31

用了笨方法

阳汖 · 发表于 2023-6-24 09:03

14820103 发表于 2023-6-24 08:31
用了笨方法

也是解决办法。思路对。

渡渡orz · 发表于 2023-6-24 09:13

比翼双飞880717 · 发表于 2023-6-24 09:26

14820103 发表于 2023-6-24 08:31
用了笨方法

我也是用的这种办法，就想看看高级点的写法

比翼双飞880717 · 发表于 2023-6-24 09:27

渡渡orz 发表于 2023-6-24 09:13

你好，能上传上附件吗，谢谢！

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

比翼双飞880717 发表于 2023-6-24 09:27
你好，能上传上附件吗，谢谢！

使用PQ实现.rar (19.22 KB, 下载次数: 18)

chenyun1234 · 发表于 2023-6-24 14:33

14820103 发表于 2023-6-24 08:31
用了笨方法

我也用你的笨办法实现了，谢谢您

		自动登录	找回密码
密码			免费注册