Power Query 合并工作簿内多表到一个表

在EXCEL应用领域，要将多个相同的工作表合并在一起，是一件比较棘手的活。

对基础掌握不全面的朋友来说，要想通过技巧来实现高效的合并，这简直就是灾难。

若要将下图这个工作簿内从1月到6月的数据完全合并到“合并”工作表中，下面的VBA代码拿走不谢。

Sub 合并()

Dim i, j, k As Integer

Application.ScreenUpdating = False

Worksheets('合并').Range('2:65536').ClearContents

For k = 2 To Sheets.Count

Sheets(k).Range('A2:E' &Sheets(k).[a65536].End(3).Row).Copy Worksheets('合并').Range('A' & sht.[a65536].End(xlUp).Row + 1)

Next

Application.ScreenUpdating = True

End Sub

很显然，对完全没有VBA基础的表亲来说，学习需要一个过程。那么介绍今天的主角，Power Query能带给我们怎样的体验。纯菜单操作哦，不会写公式函数和VBA的表亲不用担心，看完之后就感觉会了。

Step 1：点击[Power Query]选项卡，点击[从文件]→[从Excel]。在对话框中找到需要合并的工作簿文件，点击[打开]。

Step 2：在弹出的对话框中， 选择到工作簿名称，然后点击[编辑]，简单粗暴有道理，菜单操作很简单。

Step 3：来到了Power Query编辑器。如果是在当前工作簿中合并，要筛选一下“Name“列，仅保留需要合并的表格。

Step4：点击”Data“列字段标题右侧的展开按钮，展开全部的数据。

Step 4：展开后，获得一个合并好的数据表， 但还需要做两个动作。先点击[开始]选项卡下[将第一行用作标题]，然后筛选任意一列，取消勾选多余的标题，删除其它多余的列， 整理一下获得最终的合并效果。

简单几步，从容合并多工作表到一个工作表，绝对纯菜单式操作，简单明了。最后将获得的结果通过“关闭并上载至...“工作表或仅创建链接，可以提供给数据透视表做为数据源，也可以加载到数据模型做进一步分析。

学到了吗？如果对您有帮助，请留下五星好评。感谢各种形式的转载、分享、收藏、点赞：）