使用Power Query可自动合并多工作簿数据：选择文件夹→筛选Excel文件→合并并加载→上载结果；2. VBA宏适用于自定义合并，通过代码遍历指定文件夹中的每个工作簿，复制其工作表至当前工作簿；3. 手动复制粘贴适合少量文件一次性操作，依次移动或复制工作表至目标工作簿并建立副本。
如果您需要将多个Excel工作簿中的数据整合到一个工作簿中以便统一分析，可以通过多种方式实现自动化或手动合并。以下是几种高效的方法来完成此任务。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11。
一、使用Power Query合并多个工作簿
Power Query是Excel内置的强大数据处理工具，能够从多个文件夹或文件中提取并合并数据，特别适用于结构相似的多个工作簿。
1、打开目标Excel工作簿，切换到数据选项卡，点击获取数据 → 从文件 → 从文件夹。
2、选择包含所有需合并工作簿的文件夹，点击确定。
3、在预览窗口中，筛选出需要合并的Excel文件，点击转换数据进入Power Query编辑器。
4、在查询编辑器中，点击组合文件列下的合并和加载，选择合适的表头行数并确认。
5、系统会自动读取每个文件的工作表内容并进行纵向拼接，完成后点击关闭并上载即可将结果导入当前工作簿。
二、使用VBA宏代码批量合并工作簿
VBA适用于需要高度自定义合并逻辑的场景，例如只提取特定工作表或添加来源文件名标识。
1、按Alt + F11打开VBA编辑器，在项目资源管理器中插入一个新模块。
2、粘贴以下代码：
Sub MergeWorkbooks()
Dim wb As Workbook, ws As Worksheet
Dim folderPath As String, fileName As String
folderPath = "C:\YourFolder\" ' 修改为实际路径
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 False
fileName = Dir
Loop
End Sub
3、修改代码中的文件夹路径为实际存储多个工作簿的目录。
4、运行宏后，所有指定文件夹内的Excel工作簿中的工作表将被复制到当前活动工作簿中。
三、手动复制粘贴合并工作簿
对于数量较少且仅需一次性合并的情况，手动操作是最直接的方式，适合非技术用户快速完成任务。
1、打开目标工作簿，确保有足够的空白工作表用于接收数据。
2、依次打开每一个源工作簿，右键点击工作表标签，选择移动或复制。
3、在对话框中“将选定工作表移至工作簿”下拉菜单选择目标工作簿名称。
4、勾选建立副本选项，防止原文件被修改。
5、点击确定完成单个工作表的复制，重复操作直至所有需要的数据都被迁移。
