excel中如何将相同格式的多个不同excel文件合并为一张表之欧阳音创编

2021.03.11

excel中如何将相同格式的多个不同excel文件合并为一张表？

时间：2021.03.11 创作：欧阳音 【问题描述】：日常工作中采集的数据经常会是大量格式相同的Excel表格。（如要求多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢？ 【解决方案】：

1.将所有格式相同的Excel表格保存到一个文件夹内；

2.在文件夹内新建一个Excel工作表，命名为“汇总表”；

3.打开汇总表，按“Alt + F11”打开VBA开发环境，双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区编写如下代码：

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

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

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String Dim G As Long

Dim Num, ini As Long

Application.ScreenUpdating = False MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & \"\\\" & \"*.xls\") AWbName = ActiveWorkbook.Name Num = 0 ini = 0

Do While MyName <> \"\" If MyName <> AWbName Then

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

With Workbooks(1).ActiveSheet If ini = 0 Then

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

Wb.Sheets(1).Range(Wb.Sheets(1).Cells(1, 1),Wb.Sheets(1).Cells(1,Wb.Sheets(1).UsedRange.Columns.Count)).Copy .Cells(1, 1) ini=1 End If

For G=1 To Sheets.Count

Wb.Sheets(G).Range(Wb.Sheets(G).Cells(2,1),Wb.Sheets(G).Cells(Wb.Sheets(G).UsedRange.Rows.Count,Wb.Sheets(G).UsedRange.Columns.Count)).Copy .Cells(.Range(\"A65536\").End(xlUp).Row+1,1) Next

WbN=WbN & Chr(13) & Wb.Name Wb.Close False End With End If MyName=Dir Loop

Range(\"A1\").Select

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

欧阳音创编 2021.03.11 欧阳音创编

2021.03.11

Application.ScreenUpdating = True MsgBox \"共合并了\" & Num & \"个工作薄下的全部工作表。如下：

\" & Chr(13) & WbN, vbInformation, \"提示\" End Sub

4.运行代码，系统会自动将所有Excel表格合并到“汇总表”中

时间：2021.03.11 创作：欧阳音 欧阳音创编 2021.03.11 欧阳音创编

2021.03.11