EXCLE里面将多个表格合并到一个里面的解决方法.doc

《EXCLE里面将多个表格合并到一个里面的解决方法.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、EXCLE合并多个工作表到一个工作表里面的方法解决方法：一：新建一个文件夹-->在里面新建一个excel表格-->把需要合并的excel表格也放到文件夹里面；二：打开新建的excel表格-->按住alt+f11-->出现以下页面：三：在点击左上角的sheet1-->把下面的代码粘贴进去代码：Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStr

2、ingApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&""&"*.xls")AWbName=ActiveWorkbook.NameNum=0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=Workbooks.Open(MyPath&""&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range("A

3、65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange("A1").SelectApplication.ScreenUpdating=

4、TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"EndSub四：然后运行。五：查看新建的表格，就会发现已经将其它表格里面的数据合并到里面；