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

如果您需要将一个文件夹内的多个Excel工作簿数据整合到一个工作表中,以便进行统一分析或处理,可以通过以下几种方法实现。以下是具体的操作流程:
Power Query是Excel内置的强大数据工具,能够从多个文件中提取并合并数据,适用于Excel 2016及以上版本或Office 365用户。
1、打开一个新的Excel工作簿,点击数据选项卡,选择获取数据 → 从文件 → 从文件夹。
2、在弹出的窗口中,浏览并选择包含所有需要合并的工作簿的文件夹,点击确定。
3、系统会列出该文件夹中的所有文件,找到目标文件后,点击右侧的转换数据按钮进入Power Query编辑器。
4、在Power Query编辑器中,点击组合文件列下的合并文件按钮,选择要合并的工作表名称(通常为Sheet1),确保各工作簿结构一致。
5、确认数据预览无误后,点击确定,系统将自动读取所有文件中的指定工作表内容并合并。
6、完成数据加载后,点击关闭并上载,数据将导入当前工作簿的新工作表中。
通过编写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怎么合并多个工作簿_Excel文件夹内所有工作簿数据汇总操作流程的详细内容,更多请关注php中文网其它相关文章!
全网最新最细最实用WPS零基础入门到精通全套教程!带你真正掌握WPS办公! 内含Excel基础操作、函数设计、数据透视表等
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号