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

《excel中如何将相同格式的多个不同excel文件合并为一张表.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、excel中如何将相同格式的多个不同excel文件合并为一张表？【问题描述】：日常工作中采集的数据经常会是大量格式相同的Excel表格。（如要求多个单位上交表格，最后需要汇总这些表格的内容），如何实现自动化合并呢？【解决方案】：1.将所有格式相同的Excel表格保存到一个文件夹内；2.在文件夹内新建一个Excel工作表，命名为“汇总表”；3.打开汇总表，按“Alt + F11”打开VBA开发环境，双击工程资源管理器里面的sheet1(sheet1),在右侧的代码区编写如下代码：Sub 合并当前目录下所有工作簿的全部工作表()Dim MyPath, MyName, AWbNameDim Wb

2、 As Workbook, WbN As StringDim G As LongDim Num, ini As LongApplication.ScreenUpdating = FalseMyPath = ActiveWorkbook.PathMyName = Dir(MyPath & "" & "*.xls")AWbName = ActiveWorkbook.NameNum = 0ini = 0Do While MyName <> ""If MyName <> AWbName ThenSet Wb = Workbooks.Open(MyPath & "" & MyName)Num =

3、 Num + 1With Workbooks(1).ActiveSheetIf ini = 0 ThenWb.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=1End IfFor G=1 To Sheets.CountWb.Sheets(G).Range(Wb.Sheets(G).Cells(2,1),Wb.Sheets(G).Cells(Wb.Sheets(G).UsedRange.Rows.C

4、ount,Wb.Sheets(G).UsedRange.Columns.Count)).Copy .Cells(.Range("A65536").End(xlUp).Row+1,1)NextWbN=WbN & Chr(13) & Wb.NameWb.Close FalseEnd WithEnd IfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating = TrueMsgBox "共合并了" & Num & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"End Sub

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