求助PQ汇总数据的问题！

my0745

sake.su 发表于 2023-2-9 10:15
国际国内业务全有，阁下是哪个省的运管还是财务？

我就是纯粹的学习PQ呢

my0745

sake.su 发表于 2023-2-9 10:59
运管？财务？

我的版本低了，也是提示不兼容

Eric0236

my0745 发表于 2023-2-9 15:18
您好，我打开成这样子了。我用的2019版本，自带的PQ

let
    源 = Folder.Files("E:\download\IDM\求助"),
    自定义 = Table.AddColumn(源, "自定义", each
        [a = Excel.Workbook([Content])[Data]{0},
        b = Table.Transpose(Table.Skip(a, 6)),
        c = Table.FirstN(b, Table.RowCount(b)-2),
        d = Table.FillDown(c, {"Column1"}),
        e = Table.CombineColumns(d, {"Column1", "Column2"}, each Text.Combine(_, "-"), "分类"),
        f = Table.Transpose(e),
        g = Table.PromoteHeaders(Table.FirstN(f, List.PositionOf(f[Column1], "合计")))
        ][g]),
    删除列 = Table.SelectColumns(自定义,{"Name", "自定义"}),
    替换的值 = Table.ReplaceValue(删除列,"数据.xls","份",Replacer.ReplaceText,{"Name"}),
    展开 = Table.ExpandTableColumn(替换的值, "自定义", Table.ColumnNames(替换的值[自定义]{0}))
in
    展开

my0745

Eric0236 发表于 2023-2-9 21:59
let
    源 = Folder.Files("E:\download\IDM\求助"),
    自定义 = Table.AddColumn(源, "自定义", ea ...

非常感谢，这个可以执行了。我得好好学习一下，太强大了！

my0745

Eric0236 发表于 2023-2-9 21:59
let
    源 = Folder.Files("E:\download\IDM\求助"),
    自定义 = Table.AddColumn(源, "自定义", ea ...

请问一下大神，如果某个月里面有两个表，怎么处理呢？难道只汇总1个表吗？

my0745

Eric0236 发表于 2023-2-9 21:59
let
    源 = Folder.Files("E:\download\IDM\求助"),
    自定义 = Table.AddColumn(源, "自定义", ea ...

大神，如果某个工作簿下有多个工作表，应该怎么办？

hbzql

let
    源 = Folder.Contents("C:\Users\Administrator\Desktop\新建文件夹 (2)"),
    自定义1 = Table.SelectRows(源,each not Text.Contains([Name],"汇总")),
    自定义3 = Table.SelectColumns(自定义1,{"Content","Name"}),
    自定义4 = List.Transform(Table.ToRecords(Table.TransformColumns(自定义3,{"Content",each Table.TransformColumnNames(Table.PromoteHeaders(Table.Transpose(Table.CombineColumns(Table.FillDown(Table.Transpose(Table.Skip(Excel.Workbook(_,true)[Data]{0},5)),{"Column1"}),{"Column1","Column2"},Combiner.CombineTextByDelimiter("-"),"合并"))),each if _="-" then "机构" else _)})),each Table.AddColumn([Content],"工作簿",(x)=>[Name])),
    自定义2 = Table.SelectRows(Table.Combine(自定义4),each [机构]<>null),
    重排序的列 = Table.ReorderColumns(自定义2,List.LastN(Table.ColumnNames(自定义2),1) & List.RemoveLastN(Table.ColumnNames(自定义2),1))
in
    重排序的列

my0745

hbzql 发表于 2023-2-10 18:41
let
    源 = Folder.Contents("C:%users\Administrator\Desktop\新建文件夹 (2)"),
    自定义1 = Table ...

如果工作簿下有多个工作表，是不是只能合并1个啊？

pxy0409

如果处理步骤相同,7楼的这种写法效率很高,值得学习!

pxy0409

my0745 发表于 2023-2-11 15:34
如果工作簿下有多个工作表，是不是只能合并1个啊？

是的,不过有可能再修改一下公司也可以 实现吧?本人没有这个功力,做了一版常规操作版的,且对汇总项目进行了修改,自认为实务操作中,这种格式更有价值,仅供参考.