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

【#第一文档网# 导语】以下是®第一文档网的小编为您整理的《excel中如何将相同格式的多个不同excel文件合并为一张表》，欢迎阅读！

excel中如何将相同格式的多个分歧excel文件合并为一张表？之袁州冬雪创作

【问题描绘】：日常工作中收集的数据常常会是大量格式相同的Excel表格.（如要求多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢？ 【处理方案】：

1.将所有格式相同的Excel表格保管到一个文件夹内； 2.在文件夹内新建一个Excel工作表，定名为“汇总表”； 3.打开汇总表，按“Alt + F11”打开VBA开辟环境，双击工程资源管理器外面的sheet1(sheet1),在右侧的代码区编写如下代码：

Sub 合并当前目次下所有工作簿的全部工作表() Dim MyPath, MyName, AWbName

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

Dim Num, ini As Long = False MyPath =



MyName = Dir(MyPath & "\" & "*.xls") AWbName = 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

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



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) & False End With End If MyName=Dir Loop

Range("A1").Select = True

本文来源：https://www.dy1993.cn/Vesx.html