如何快速的？合并多个excel文件到一个excel里面？

Posted 2023-04-25

　　1.需要把多个excel表都放在同一个文件夹里面，并在这个文件夹里面新建一个excel。如图所示：

　　2.用microsoft excel打开新建的excel表，并右键单击sheet1，找到“查看代码”，单击进去。进去之后就看到了宏计算界面。如图所示：

　　3.然后把下面这些宏计算的代码复制进去，然后找到工具栏上面的“运行”下的“运行子过程/用户窗体”，代码如下，如图所示：

　　Sub 合并当前目录下所有工作簿的全部工作表()

　　Dim MyPath, MyName, AWbName

　　Dim Wb As Workbook, WbN As String

　　Dim G As Long

　　Dim Num As Long

　　Dim BOX As String

　　Application.ScreenUpdating = False

　　MyPath = ActiveWorkbook.Path

　　MyName = Dir(MyPath & "\\" & "*.xls")

　　AWbName = ActiveWorkbook.Name

　　Num = 0

　　Do While MyName <> ""

　　If MyName <> AWbName Then

　　Set Wb = Workbooks.Open(MyPath & "\\" & MyName)

　　Num = Num + 1

　　With Workbooks(1).ActiveSheet

　　.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)

　　For G = 1 To Sheets.Count

　　Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)

　　Next

　　WbN = WbN & Chr(13) & Wb.Name

　　Wb.Close False

　　End With

　　End If

　　MyName = Dir

　　Loop

　　Range("B1").Select

　　Application.ScreenUpdating = True

　　MsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"

　　End Sub

　　4.运行之后，等待10秒针左右，等运行完毕，就是合并完成之后，会有提示，点确定就可以了。查看合并后的数据，有5000多行，就是同一个文件夹里面17个excel表数据合并后的结果。效果如图所示。

参考技术A 利用VBA方法：
1. 将需合并的excel文件放在同一个文件中，并这个文件中新建一个excel文件
2. 打开新建的excel文件，按alt + f11建，打开宏，新建一个模组，将下面的代码拷贝进去，并保存。
Sub Books2Sheets()
'定义对话框变量
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
'新建一个工作簿
Dim newwb As Workbook
Set newwb = Workbooks.Add
With fd
If .Show = -1 Then
'定义单个文件变量
Dim vrtSelectedItem As Variant
'定义循环变量
Dim i As Integer
i = 1
'开始文件检索
For Each vrtSelectedItem In .SelectedItems
'打开被合并工作簿
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
'复制工作表
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
'把新工作簿的工作表名字改成被复制工作簿文件名，这儿应用于xls文件，即Excel97-2003的文件，如果是Excel2007，需要改成xlsx
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".xls", "")
'关闭被合并工作簿
tempwb.Close SaveChanges:=False
i = i + 1
Next vrtSelectedItem
End If
End With
Set fd = Nothing
End Sub
3. 打开刚保存的excel文件，工具 - 巨集 - 巨集 - 选择刚建立的巨集（只有一个） - 执行 - 选择所有需要合并到新建的excel文件中的所有excel文件。 等待它合并完（文件多的话，合并的时间就长点）。 参考技术B ctrl+a ctrl+c 新建一个sheet层 ctrl+v 反复做 最后保存 就ok了 参考技术C 将要复制全选，复制粘贴 参考技术D 使用合并计算

如何将多个excel文件合并？

1、首先将这些excel文件都复制到一个文件夹下。

2、切换到【数据】菜单，点击【新建查询】，选择【从文件】下的【从文件夹】。

3、输入刚刚的文件夹路径，点击【确定】。

4、点击【合并】下的【合并和加载】选项。

5、选择要合并的工作表名称，最后点击【确定】。

6、这就完成了多个excel文件的合并。我们从筛选菜单中可以看到本例中的4个文件都这一份表格中啦。

参考技术A 可以使用 Python 的第三方库 pandas 将多个 excel 文件合并。
首先需要安装 pandas 库，在命令行中输入：
pip install pandas
然后可以使用 pandas 库中的 read_excel 函数读取 excel 文件，使用 concat 函数将多个 DataFrame 数据结构合并，再使用 to_excel 函数将合并后的 DataFrame 保存为新的 excel 文件。
示例代码：
import pandas as pd
# 读取第一个 excel 文件
df1 = pd.read_excel("file1.xlsx")
# 读取第二个 excel 文件
df2 = pd.read_excel("file2.xlsx")
# 将两个文件合并
df = pd.concat([df1, df2])
# 使用 to_excel 函数将合并后的 DataFrame 保存为新的 excel 文件
df.to_excel("merged_file.xlsx")
这样就可以在当前目录下生成一个名为 merged_file.xlsx 的 excel 文件，里面包含了 file1.xlsx 和 file2.xlsx 两个文件的数据。
如果需要合并的文件很多的话，可以使用 for 循环读取文件并进行合并。
合并多个 excel 文件时，如果文件中的表格列不一样，可以使用 merge 或 join 来进行合并，同时需要指定 key 列来进行关联。