在表格中加入行列求和并删除求和结果为0的行列

yuan123777

用PQ方式：
在表格中加入列，作为除第一列外的各列的求和；
加入一行，作为各行的求和，
最后删除求和里总数为0的行和列

cnmlgb9998

见附件

yuan123777

太厉害了！！还有，您这段代码好难，能否多少帮忙解说下呢
Table.Buffer([m=Table.SelectRows(Table.AddColumn(源,"合计",each [a=Record.ToList(_),b=List.Sum(List.Skip(a))][b]),(x)=>x[合计]<>0),n=Table.SelectColumns(m, List.Select(Cols&{"合计"},(x)=>try List.Sum(Table.Column(m,x))<>0 otherwise true) )][n]),

土匪远

行和列的求和思路一样，只是列求和要先转置。（求和部分手写，其他手动即可）


let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    列求和 = Table.AddColumn(源, "总和", each List.Sum(List.Skip(Record.ToList(_)))),
    列去0 = Table.SelectRows(列求和, each ([总和] <> 0)),
    降级的标题 = Table.DemoteHeaders(列去0),
    转置表 = Table.Transpose(降级的标题),
    行求和 = Table.AddColumn(转置表, "自定义", each try List.Sum(List.Skip(Record.ToList(_))) otherwise "总计"),
    行去0 = Table.SelectRows(行求和, each ([自定义] <> 0)),
    转置表1 = Table.Transpose(行去0),
    提升的标题 = Table.PromoteHeaders(转置表1, [PromoteAllScalars=true])
in
    提升的标题

deadzlq

PQ参考解法