用PowerQuery实现多个工作簿内数据填充、行列转置以及汇总合并功能

会飞的兔子J

如图：
苦恼太久了，每次都是手动复制，选择性粘贴，转置，然后再VLOOKUP。。。。

会飞的兔子J

目前已经解决了这个月的，每个工作簿新建一个sheet2，放sheet1的转置值。
然后用PQ，合并，向下填充。就可以了。。。
接下来，研究下能不能不一个一个工作簿打开转置，用VBA 或者PQ解决。。

questionsome

是这个这样？？

会飞的兔子J

questionsome 发表于 2021-11-5 18:17
是这个这样？？

是的！！！！！大神~我就转置这步不太会。

会飞的兔子J

questionsome 发表于 2021-11-5 18:17
是这个这样？？

想知道整个步骤是什么，我输入了公式，显示代码出错。

pxy0409

通过pq菜单功能(转置和逆透视)合并了3个文件,全部转换为一维数据,居然有80多万行.压缩后的文件还有20多M无法上传.

pxy0409

楼下的方法值得学习!
    源 = Folder.Files(Excel.CurrentWorkbook(){[Name="表1"]}[Content]{0}[列1]),
    筛选的行 = Table.SelectRows(源, each ([Name] <> "~$合并文件.xlsx" and [Name] <> "合并文件.xlsx"))[Content],
    a = List.Transform(筛选的行,each Excel.Workbook(_)[Data]{0}),
    b = List.Transform(a,each  Table.PromoteHeaders(Table.FillDown(Table.Transpose(_),{"Column1"}))  ),
    c = Table.Combine(b)

ZLJzz

转置后合并3个表。只要把需要合并的文件拉进文件夹，刷新合并文件就行。

pxy0409

ZLJzz 发表于 2021-11-8 11:18
转置后合并3个表。只要把需要合并的文件拉进文件夹，刷新合并文件就行。

这种用M函数的做法值得学习,简捷!    源 = Folder.Files(Excel.CurrentWorkbook(){[Name="表1"]}[Content]{0}[列1]),
    筛选的行 = Table.SelectRows(源, each ([Name] <> "~$合并文件.xlsx" and [Name] <> "合并文件.xlsx"))[Content],
    a = List.Transform(筛选的行,each Excel.Workbook(_)[Data]{0}),
    b = List.Transform(a,each  Table.PromoteHeaders(Table.FillDown(Table.Transpose(_),{"Column1"}))  ),
    c = Table.Combine(b)

我只会用菜单常规操作,步骤多,效率不高.....

ZLJzz

可以去看看网上的视频教程，网上教PQ的教程也不少。