Excel多工作簿合并技巧分享

在文章实战开发的过程中，我们经常会遇到一些这样那样的问题，然后要卡好半天，等问题解决了才发现原来一些细节知识点还是没有掌握好。今天golang学习网就整理分享《Excel合并多个工作簿教程》，聊聊，希望可以帮助到正在努力赚钱的你。

使用Power Query可合并多工作簿数据：选择文件夹→转换数据→合并文件→加载至新表；2. VBA宏代码自动合并：编写脚本遍历文件夹内所有Excel文件并复制工作表；3. 手动复制粘贴适用于少量文件，逐个打开复制数据至汇总表。

如果您需要将一个文件夹内的多个Excel工作簿数据整合到一个工作表中，以便进行统一分析或处理，可以通过以下几种方法实现。以下是具体的操作流程：

一、使用Power Query合并多个工作簿

Power Query是Excel内置的强大数据工具，能够从多个文件中提取并合并数据，适用于Excel 2016及以上版本或Office 365用户。

1、打开一个新的Excel工作簿，点击数据选项卡，选择获取数据 → 从文件 → 从文件夹。

2、在弹出的窗口中，浏览并选择包含所有需要合并的工作簿的文件夹，点击确定。

3、系统会列出该文件夹中的所有文件，找到目标文件后，点击右侧的转换数据按钮进入Power Query编辑器。

4、在Power Query编辑器中，点击组合文件列下的合并文件按钮，选择要合并的工作表名称（通常为Sheet1），确保各工作簿结构一致。

5、确认数据预览无误后，点击确定，系统将自动读取所有文件中的指定工作表内容并合并。

6、完成数据加载后，点击关闭并上载，数据将导入当前工作簿的新工作表中。

二、使用VBA宏代码批量合并工作簿

通过编写VBA脚本可以自动化地打开文件夹内所有Excel文件，并将其工作表内容复制到主工作簿中，适合熟悉VBA操作的用户。

1、打开一个新的Excel工作簿，按Alt + F11进入VBA编辑器。

2、在左侧工程资源管理器中，右键点击插入 → 模块，插入一个新模块。

3、将以下代码粘贴到模块中，注意根据实际情况修改文件夹路径和工作表名称：

Sub 合并多个工作簿()
Dim wb As Workbook, ws As Worksheet
Dim folderPath As String, fileName As String
folderPath = "C:\你的文件夹路径\" ' 修改为此实际路径
fileName = Dir(folderPath & "*.xlsx")
Do While fileName ""
Set wb = Workbooks.Open(folderPath & fileName)
For Each ws In wb.Worksheets
ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next ws
wb.Close SaveChanges:=False
fileName = Dir
Loop
End Sub

4、修改代码中的文件夹路径为实际路径，确保格式正确。

5、关闭VBA编辑器，返回Excel，按Alt + F8运行宏，选择“合并多个工作簿”并执行。

6、等待程序运行完毕，所有工作簿的数据将被复制到当前工作簿中。

三、手动复制粘贴法（适用于少量文件）

当需要合并的工作簿数量较少时，可采用手动方式逐个打开并复制数据，操作简单但效率较低。

1、新建一个Excel工作簿，命名为“汇总表”。

2、依次打开文件夹中的每一个工作簿，选中目标工作表中的全部数据区域。

3、右键点击选中区域，选择复制或按Ctrl + C。

4、切换至“汇总表”，选择起始单元格（如A1），右键选择粘贴或按Ctrl + V。

5、若需区分来源，在每张表粘贴后可在上方添加一行标题说明文件名。

6、重复以上步骤，直至所有工作簿数据均被复制到汇总表中。

今天关于《Excel多工作簿合并技巧分享》的内容介绍就到此结束，如果有什么疑问或者建议，可以在golang学习网公众号下多多回复交流；文中若有不正之处，也希望回复留言以告知！