用PQ合并文件夹中多个文件，多工作表，工作表有多重表头时遇到困难

hero5578

在一个文件夹中有多个相同格式的EXCEL文件，每个文件有两个工作表，工作表有三行表头

希望每一个文件都做以下相同操作后合并成一张表：
1 只合并“个人所得税扣缴申报表”
2 把第5，6行向下填充到第7行，将第7行用作表头
3 删除前8行；删除后5行；删除空行，用作表体
4 将表头和表体合并在一起
5 增加两列，一列名叫"公司"，取A3单元格 冒号后的内容；另一列名叫"期间"，取A2单元格 冒号到"至"中间的内容。（也可以从文件名中取值）



谢谢！

limonet

let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    去后 = Table.RemoveLastN(源,5),
    向下填充 = Table.FillDown(去后,Table.ColumnNames(去后)),
    裁前 = Table.RemoveFirstN(向下填充,6),
    筛选的行 = Table.SelectRows(裁前, each ([列2] <> null and [列2] <> 2)),
    删除重复 = Table.Distinct(筛选的行, {"列2"}),
    提升的标题 = Table.PromoteHeaders(删除重复, [PromoteAllScalars=true]),
    公司 = Table.AddColumn(提升的标题, "公司", each Text.Split(源{2}[列1],"："){1}),
    期间 = Table.AddColumn(公司, "期间", each Text.Middle(源{1}[列1],6,11))
in
    期间

limonet

体力活，纯代码少。

hero5578

limonet 发表于 2025-3-26 11:29
let
    源 = Excel.CurrentWorkbook(){[Name="表1"]}[Content],
    去后 = Table.RemoveLastN(源,5), ...

不是很正确，第5，6行向下填充到第7行时，会将第8行也填充到下面。这也是我不知道怎么弄的难点？

hero5578

limonet 发表于 2025-3-26 11:37
体力活，纯代码少。

向下填充 = Table.FillDown(去后,Table.ColumnNames(去后))
这个步骤会将第8行也填充到下面的空单元格中
如图所示

能不能用我的思路解决：分别单独做表头和表体，然后把表头与表体合并？

hero5578

这一步：“向下填充 = Table.FillDown(去后,Table.ColumnNames(去后))”会将第8行内容填充到下面的空单元格。这也是我没搞明白的地方。我觉得可能要分别做出表头和表体，再合并。如图

渡渡orz

let
    源 = Excel.Workbook(File.Contents("C:\Users\xjun\Downloads\Compressed\四川某某建材有限公司_综合所得申报_202502.xls"), null, true),
    data = 源{[Name="个人所得税扣缴申报表"]}[Data],
    body = Table.SelectRows(Table.RemoveLastN(Table.Skip(data,8),5),each [Column1]<>null),
    header = Table.ToRows(Record.ToTable(Table.Last(Table.FillDown(Table.Range(data,4,3),Table.ColumnNames(data))))),
    res = Table.RenameColumns(body, header)
in
    res

brot

练习一下，供参考

bruceoy

要在转换示例文件里把单个表格处理好再合并，公司名称和月份可以用表名称里提取，表头可以转置表格后合并前三列，再转回来

hero5578

渡渡orz 发表于 2025-3-26 17:03
let
    源 = Excel.Workbook(File.Contents("C:%users\xjun\Downloads\Compressed\四川某某建材有限公司_ ...

res这步好像没什么用吧？