怎么把多个excel文件合到一个文件里

创作时间:

作者:

@小白创作中心

怎么把多个excel文件合到一个文件里

引用

来源

https://docs.pingcode.com/baike/4095109

要将多个Excel文件合并到一个文件中，有几种方法：使用Excel的内置功能、使用VBA宏、使用Python脚本。使用Excel的数据导入功能可以轻松合并文件、但对于更复杂的情况，使用VBA宏或Python脚本会更加高效。以下将详细介绍如何使用这三种方法来完成任务。

一、使用Excel内置功能

数据导入功能

Excel提供了数据导入功能，可以将多个文件的数据导入到一个工作簿中。

打开一个新的或现有的Excel文件。
选择“数据”选项卡，然后点击“获取数据”按钮。
选择“从文件”->“从文件夹”。
选择包含所有Excel文件的文件夹。
Excel将显示文件夹中的所有Excel文件，选择需要导入的文件。
点击“加载”，所有选中的文件将被导入到一个工作簿中。

这种方法不仅快速高效，而且可以确保数据的一致性和完整性。

手动复制粘贴

这是最简单但也是最耗时的方法，适用于文件数量不多的情况。

打开每个需要合并的Excel文件。
选择需要复制的表格，按Ctrl+C复制。
打开目标Excel文件，选择需要粘贴的位置，按Ctrl+V粘贴。
重复以上步骤，直到所有文件的数据都被合并到一个文件中。

二、使用VBA宏

编写VBA宏代码

使用VBA宏可以自动化合并多个Excel文件的过程。

按Alt+F11打开VBA编辑器。
插入一个新的模块，然后粘贴以下代码：

Sub 合并多个文件()
    Dim 文件路径 As String
    Dim 文件名 As String
    Dim 目标工作簿 As Workbook
    Dim 源工作簿 As Workbook
    Dim sh As Worksheet
    文件路径 = "C:你的文件夹路径"
    文件名 = Dir(文件路径 & "*.xlsx")
    Set 目标工作簿 = ThisWorkbook
    Do While 文件名 <> ""
        Set 源工作簿 = Workbooks.Open(文件路径 & 文件名)
        For Each sh In 源工作簿.Sheets
            sh.Copy After:=目标工作簿.Sheets(目标工作簿.Sheets.Count)
        Next sh
        源工作簿.Close False
        文件名 = Dir
    Loop
End Sub

运行宏，所有文件的数据将被合并到当前工作簿中。

优化VBA代码

根据具体需求，修改VBA代码，使其更加高效和实用。例如，可以添加错误处理、进度条显示等功能。

三、使用Python脚本

安装所需库

使用Python脚本可以更加灵活地处理数据合并。

安装pandas库：
```
pip install pandas
```
安装openpyxl库：
```
pip install openpyxl
```

编写Python脚本

下面是一个简单的Python脚本，用于合并多个Excel文件：

import pandas as pd
import os

文件夹路径 = "C:/你的文件夹路径/"
文件列表 = [文件 for 文件 in os.listdir(文件夹路径) if 文件.endswith('.xlsx')]
df_list = []
for 文件 in 文件列表:
    文件路径 = os.path.join(文件夹路径, 文件)
    df = pd.read_excel(文件路径)
    df_list.append(df)
合并的df = pd.concat(df_list, ignore_index=True)
合并的df.to_excel(文件夹路径 + '合并后的文件.xlsx', index=False)