在 Excel 中,如果你有多个 Excel 文件(例如 .xlsx 或 .xls 格式),想要将它们汇总到一个文件中,可以使用以下几种方法:
✅ 方法一:使用 Excel 的“合并工作簿”功能(适用于 Excel 2007 及以上版本)
步骤:
- 打开一个 Excel 文件(作为“源文件”)。
- 点击 “数据” > “从文件” > “从 Excel 工作簿”。
- 选择你要合并的多个 Excel 文件(支持多个文件选择)。
- 点击 “确定”。
- 选择“合并到一个工作簿”。
- 选择要合并到的目标工作簿(或新建一个)。
- 点击 “确定”,完成合并。
✅ 方法二:使用 VBA 宏(适合批量处理)
如果你需要自动化处理多个文件,可以使用 VBA 宏来批量合并。
示例 VBA 代码(合并多个 Excel 文件到一个文件):
Sub MergeExcelFiles()
Dim SourceFiles As Variant
Dim TargetFile As String
Dim TargetWorkbook As Workbook
Dim i As Integer
' 设置目标文件
TargetFile = "C:\Your\Target\File.xlsx" ' 修改为你的目标文件路径
' 获取所有源文件
SourceFiles = Application.GetOpenFilename("Excel Files (*.xlsx, *.xls), *.xlsx, *.xls", FileFilter:="Excel Files (*.xlsx, *.xls), *.xlsx, *.xls")
If SourceFiles <> "" Then
' 打开目标工作簿
Set TargetWorkbook = Workbooks.Open(TargetFile)
' 遍历所有源文件
For i = 0 To UBound(SourceFiles)
Dim SourceFile As String
SourceFile = SourceFiles(i)
' 打开源文件
Dim SourceWorkbook As Workbook
Set SourceWorkbook = Workbooks.Open(SourceFile)
' 将源文件的数据复制到目标工作簿
SourceWorkbook.Activate
TargetWorkbook.Activate
' 复制数据
Dim SourceSheet As Worksheet
Set SourceSheet = SourceWorkbook.Sheets(1) ' 假设数据在第一个工作表
Dim TargetSheet As Worksheet
Set TargetSheet = TargetWorkbook.Sheets(1) ' 假设目标数据在第一个工作表
' 复制数据
SourceSheet.Range("A1").End(xlDown).Offset(1).Copy _
TargetSheet.Range("A1").End(xlDown).Offset(1)
' 关闭源文件
SourceWorkbook.Close SaveChanges:=False
Next i
' 保存目标文件
TargetWorkbook.Save
TargetWorkbook.Close
End If
End Sub
使用说明:
- 将代码复制到 Excel 的 VBA 编辑器(按
Alt + F11)。 - 插入一个模块(Insert > Module)。
- 将代码粘贴进去。
- 运行宏(运行 > 宏 >
MergeExcelFiles)。
✅ 方法三:使用 Excel 的“数据”选项卡(适合简单合并)
- 打开一个 Excel 文件。
- 点击 “数据” > “从文件” > “从 Excel 工作簿”。
- 选择你要合并的多个文件。
- 点击 “确定”,然后选择“合并到一个工作簿”。
- 选择目标工作簿,点击 “确定”。
✅ 方法四:使用 Python(适合脚本化处理)
如果你熟悉 Python,可以使用 pandas 或 openpyxl 来批量读取多个 Excel 文件并合并。
示例(使用 pandas):
import pandas as pd
# 读取多个 Excel 文件
files = ["file1.xlsx", "file2.xlsx", "file3.xlsx"]
df_list = [pd.read_excel(f) for f in files]
# 合并到一个 DataFrame
merged_df = pd.concat(df_list, ignore_index=True)
# 保存到新文件
merged_df.to_excel("merged_file.xlsx", index=False)
✅ 方法五:使用 Excel 的“文件” > “打开” > “合并工作簿”(适用于 Excel 2007 及以下版本)
- 打开一个 Excel 文件。
- 点击 “文件” > “打开” > “合并工作簿”。
- 选择多个 Excel 文件。
- 点击 “确定”,然后选择要合并到的目标工作簿。