如何将ECEL 多份表格 叠加在一张表中.docx

如何将EXCEL 多份表格 叠加在一张表中

首先，把这些表的工作簿（可以是多个工作簿）放在一个新建立的文件夹里；第二，在这个新建立的文件夹里再新建一个excel表格文件，如《合并》；

第三，打开这个《合并》工作簿，在左下角sheet1标签处右键 “查看代码”， 然后把下面代码复制进去；然后点运行“运行子过程”，保存，关闭退出，就完成了多张表格数据的叠加；

第四，整理该份叠加合并的表格。

Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLong

DimNumAsLongDimBOXAsString

Application.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath\*.xls)AWbName=ActiveWorkbook.NameNum=0

DoWhileMyNameIfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath\MyName)Num=Num+1

WithWorkbooks(1).ActiveSheet

.Cells(.Range(B65536).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range(B65536).End(xlUp).Row+1,1)Next

WbN=WbNChr(13)Wb.NameWb.CloseFalse

EndWithEndIfMyName=DirLoop

Range(B1).SelectApplication.ScreenUpdating=True

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

EndSub

说明：1、多张表格格式（行数，列数，字段等）可以不统一；

2 、运行“运行子过程”只能点击一次，否则会重复叠加；可以在“运行子过程”后删除“查看代码”的内容。

3、运行“运行子过程”，需要将其他Excel表格全部关掉。