将多个 Excel 文件合并到一个具有单独工作表的工作簿中(4 种方法)
在此示例中,存在三个不同的 Excel 文件,并且每个文件都包含不同的工作表。
方法 1 – 应用移动或复制操作将多个 Excel 文件合并到一个具有单独工作表的工作簿中
步骤:
- 将弹出移动或复制对话框。
- 从到预订选项中选择合并 Excel 文件.xlsx,然后在工作表之前字段中选择(移至末尾) 。
- 按确定。
- 打开第三个 Excel 文件(合并 Excel 文件 3)。
- 选择工作表 (Sheet3) 并右键单击鼠标。
- 在菜单中选择移动或复制。
- 在要预订字段中,选择合并 Excel 文件.xlsx,然后在工作表之前中选择(移至末尾) 。
- 按确定。
- 单独的工作表合并在一个工作簿中。
方法 2 – 使用粘贴链接功能将多个 Excel 文件合并到一个工作簿中
步骤:
- 从合并 Excel 文件 2 中的 Sheet2 复制单元格 B2 。
- 转到目标工作簿。在此示例中,目标是合并 Excel 文件。
- 选择一个单元格,B2(此处)。
- 从粘贴选项中选择粘贴链接。
- 将创建如下公式。
- 删除公式中出现的所有“$”符号,并使用自动填充工具完成该系列。
- 返回的源工作表如下。
- 对第三个 Excel 文件重复上述步骤。
- 这些工作表已合并在一个工作簿中。
方法 3 – 使用 Power Query 将多个文件合并到一个具有单独工作表的工作簿中
步骤:
- 打开第一个工作簿(合并 Excel 文件)。
- 转到数据➤获取数据➤从文件➤从工作簿。
- 将弹出导入数据窗口。
- 选择合并 Excel 文件 2,然后按导入。
- 将弹出导航器窗口。
- 按加载。
- 第二个工作簿中的 Sheet2 将添加为表格。
- 重复此过程以从第三个工作簿获取 Sheet3 。
- 所有三张工作表合并在一个工作簿中。
方法 4 – Excel VBA 将多个文件合并到一个具有单独工作表的工作簿中
步骤:
- 打开目标工作簿。 (合并 Excel 文件)。
- 从开发人员选项卡中选择Visual Basic。
- 在插入标签中选择模块。
- 将弹出模块窗口。
- 插入以下代码。
Sub CombineFiles()
Dim FilesSelected, i As Integer
Dim tempFile As FileDialog
Dim MainBook, sourceBook As Workbook
Dim Sheet As Worksheet
Set MainBook = Application.ActiveWorkbook
Set tempFile = Application.FileDialog(msoFileDialogFilePicker)
tempFile.AllowMultiSelect = True
FilesSelected = tempFile.Show
For i = 1 To tempFile.SelectedItems.Count
Workbooks.Open tempFile.SelectedItems(i)
Set sourceBook = ActiveWorkbook
For Each Sheet In sourceBook.Worksheets
Sheet.Copy after:=MainBook.Sheets(MainBook.Worksheets.Count)
Next Sheet
sourceBook.Close
Next i
End Sub
- 关闭 Visual Basic 窗口。
- 在开发人员选项卡下,选择宏。
- 将弹出宏对话框。
- 在宏名称中选择CombineFiles。
- 按运行。
- 将弹出一个浏览窗口。
- 选择要合并的文件,然后按确定。
- 这些工作表已合并为一个工作簿。