缺考问题

cjh-01

五人本应每人参加5次考试，结果有人缺考。在计算5次总分时老师于心不忍，将第一次缺考按最近次一次参考成绩的80%计，连续缺考也按最近一次成绩的80%计，请问如何将附件A1：F26汇总成右表形式？优先考虑Powerquery，vba也行。

hbzql

1. let
   
2.     源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
   
3.     自定义1 = Table.Group(源,"姓名",{"分组",each [a=List.Transform(List.Skip(Table.ToColumns(_)),List.Sum),b=List.Accumulate(a,{},(x,y)=>if y=null then x&{List.Last(x)*0.8} else x&{y})][b]}),
   
4.     自定义3 = Table.AddColumn(自定义1,"合计",each List.Sum([分组])),
   
5.     自定义2 = Table.SplitColumn(自定义3,"分组",each _)
   
6. in
   
7.     自定义2

复制代码

ThxAlot

DAX简洁优雅，难道不香么？

wdx223

cjh-01

非常感谢各位的无私帮助，由于本人小白一个，对PQ操作容器一知半解。把上面的问题稍微修改了一下，具体见附件。不知如何实现如下表格转换，希望不吝赐教。

尘土1

cjh-01 发表于 2023-9-22 15:03
非常感谢各位的无私帮助，由于本人小白一个，对PQ操作容器一知半解。把上面的问题稍微修改了一下，具体见附 ...

1. = Table.ExpandTableColumn(Table.Group(源, "姓名", {"计数", each let a=List.Accumulate(List.Skip(Table.ColumnNames(_)),{},(x,y)=>x&{List.Sum(Table.Column(_,y))??List.Last(x)*0.8}) in Table.FromColumns({{1..5,"合计"},a&{List.Sum(a)}},{"次数","成绩"})}),"计数",{"次数","成绩"})

复制代码

cjh-01

这代码在我电脑上怎么显示不正确呢？

尘土1

cjh-01 发表于 2023-9-22 22:10
这代码在我电脑上怎么显示不正确呢？

= Table.ExpandTableColumn(Table.Group(源, "姓名", {"计数", each let a=List.Accumulate(List.Skip(Table.ColumnNames(_)),{},(x,y)=>x&{List.Sum(Table.Column(_,y))??List.Last(x)*0.8}) in Table.FromColumns({{1..5,"合计"},a&{List.Sum(a)}},{"次数","成绩"})}),"计数",{"次数","成绩"})


把 源 改为你上一步的名称

cjh-01

[quote]= Table.ExpandTableColumn(Table.Group(源, "姓名", {"计数", each let a=List.Accumulate(List.Skip(Table.ColumnNames(_)),{},(x,y)=>x&{List.Sum(Table.Column(_,y))??List.Last(x)*0.8}) in Table.FromColumns({{1..5,"合计"},a&{List.Sum(a)}},{"次数","成绩"})}),"计数",{"次数","成绩"})


谢谢，我的excel为2016版，这种写法好像不合适

cjh-01

太冷清了，自己顶一下吧