不同表头多工作簿合并（批量）

icevy0324

求教各位大大，我有大概100+个工作簿，因为制表年代不同，表头不太一样，但是大部分内容是相同的，现在需要合并到一个工作表中，相同表头的就放在一个，没有的就空着。请教下，有么有快捷的方法。

需要达到的目标为“成果”工作簿

gyyan

let
    Source = Folder.Files("C:\不同表头工作簿合并"),
    Custom1 = Table.Combine(
                                            List.Transform(
                                                                   Source[Content],
                                                                   each Table.PromoteHeaders(
                                                                                                             Table.SelectRows(
                                                                                                                                        Excel.Workbook(_),
                                                                                                                                        each [Item]="Sheet1"
                                                                                                                                      )[Data]{0}
                                                                                                           )
                                                                 )
                                          )
in
    Custom1

pxy0409

批量导入文件夹的这种处理方式,值得学习
= List.Transform(筛选的行[Content],   each Table.SelectRows(Excel.Workbook(_),  each [Item]="Sheet1")[Data]{0})

icevy0324

gyyan 发表于 2023-2-15 23:01
let
    Source = Folder.Files("C:\不同表头工作簿合并"),
    Custom1 = Table.Combine(

显示图片信息，无法在未启用宏的工作簿中保存一下功能

hbzql

= Table.Combine(List.Combine(List.Transform(Table.SelectRows(Folder.Files("C:\Users\胡彬\Desktop\不同表头工作簿合并"),each not(Text.Contains([Name],"成果")))[Content],each Excel.Workbook(_,true)[Data])))

icevy0324

hbzql 发表于 2023-2-28 01:04
= Table.Combine(List.Combine(List.Transform(Table.SelectRows(Folder.Files("C:%users\胡彬\Desktop\不 ...

能够讲下具体操作过程啊，多谢

my0745

这个要对每个表的标题进行判断

kaixinbuy

如果有其他字段，只管加字段，即使字段名不同。没有的字段会自动空着。