多个Excel文件合并成一个Excel表的方法

在处理数据时，我们经常会遇到需要将多个Excel文件合并为一个表格的情况。这可以通过多种方法实现，下面将介绍几种常见的合并方法。

方法一：使用Excel内置功能合并

步骤一：打开一个新的Excel工作簿

首先，打开一个新的Excel工作簿，这将作为合并后的工作表。

步骤二：使用“打开”功能

点击“数据”选项卡，然后选择“从工作簿”或者“从文本/CSV”等选项，根据你的文件类型选择合适的选项。

步骤三：选择要合并的文件

在弹出的对话框中，选择你想要合并的所有Excel文件，然后点击“打开”。

步骤四：选择要导入的数据

在“导入数据”对话框中，选择你想要导入的数据范围，然后点击“确定”。

步骤五：复制粘贴

将导入的数据复制到新工作簿中。重复以上步骤，直到所有需要的文件都被导入。

注意事项：

• 如果文件结构相同，Excel会自动将数据排列在连续的行中。
• 如果文件结构不同，可能需要手动调整数据位置。

方法二：使用Power Query合并

步骤一：打开Power Query编辑器

在Excel中，点击“数据”选项卡，然后选择“从表/区域获取数据”，打开Power Query编辑器。

步骤二：添加查询

在Power Query编辑器中，选择“新建查询” > “文件” > “文件夹”，然后选择包含Excel文件的文件夹。

步骤三：合并文件

Power Query会自动加载文件夹中的所有Excel文件。选择“合并”按钮，然后选择“合并查询为新查询”。

步骤四：选择合并方式

选择“合并”选项，然后选择“合并查询为新查询”，选择“添加列”作为合并方式。

步骤五：完成合并

在Power Query编辑器中，你可以进行数据清洗和转换，然后点击“关闭并加载”，将合并后的数据导入到新的Excel工作表中。

方法三：使用VBA宏合并

步骤一：打开VBA编辑器

按下Alt + F11打开VBA编辑器。

步骤二：插入新模块

在VBA编辑器中，右键点击“VBAProject (你的工作簿名称)” > 插入 > 模块。

步骤三：编写VBA代码

在新模块中编写VBA代码，例如：

Sub 合并Excel文件()
    Dim FolderPath As String
    Dim Filename As String
    Dim Sheet As Worksheet
    Dim WorkBk As Workbook
    Dim TargetWorkbook As Workbook
    Dim TargetSheet As Worksheet
    
    Set TargetWorkbook = ThisWorkbook
    Set TargetSheet = TargetWorkbook.Sheets(1)
    FolderPath = "C:\你的文件夹路径\" ' 修改为包含Excel文件的文件夹路径
    Filename = Dir(FolderPath & "*.xls*")
    
    Application.ScreenUpdating = False
    
    Do While Filename <> ""
        Set WorkBk = Workbooks.Open(FolderPath & Filename)
        For Each Sheet In WorkBk.Sheets
            Sheet.UsedRange.Copy TargetSheet.Cells(TargetSheet.Rows.Count, 1).End(xlUp).Offset(1, 0)
        Next Sheet
        WorkBk.Close False
        Filename = Dir()
    Loop
    
    Application.ScreenUpdating = True
End Sub

步骤四：运行宏

关闭VBA编辑器，回到Excel界面，按下Alt + F8，选择刚才创建的宏，然后点击“运行”。

结论

以上是三种合并多个Excel文件为一个工作表的方法。使用Excel内置功能适合简单的合并操作；Power Query提供了更强大的数据处理能力，适合复杂的数据合并和清洗；而VBA宏则适合需要自动化处理大量文件的情况。根据你的具体需求选择合适的方法。

AI办公助手：WPS灵犀

如果本文未能解决您的问题，或者您在办公领域有更多疑问，我们推荐您尝试 WPS灵犀 —— 一款强大的人工智能办公助手。

WPS灵犀 具备AI搜索、读文档、快速创作、生成PPT、长文写作、网页摘要、截图问答、上传文件等功能快来体验吧