《怎么将多个excel快速合并成一个》由会员分享,可在线阅读,更多相关《怎么将多个excel快速合并成一个(3页珍藏版)》请在金锄头文库上搜索。
1、Excel多个文件格子如何合并?1. 先把所有要合并的EXCEL放到同一目录下.2. 在当前目录下新建一个EXCEL3. 打开新建的EXCEL按ALT+F114.在sheet1里输入此行不要复制Sub合并工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&*.xls)AWbName=ActiveWorkbook.N
2、ameNum=0DoWhileMyNameIfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range(A65536).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.Clos
3、eFalseEndWithEndIfMyName=DirLoopRange(A1).SelectApplication.ScreenUpdating=TrueMsgBox共合并了&Num&个工作薄下的全部工作表。如下:&Chr(13)&WbN,vbInformation,提示EndSub此行不要复制5. 关闭MicrosoftVisualBasic6. 点击工具宏安全性改成低(如果已经改成低,此步骤可以省略)7. 点击工具宏宏再点击执行8稍等12分钟注意:EXCEL的总行数不要超过65535行楼主幸运,以前我找过,朋友给了段代码,很方便的文件要合并的文件没有选定文件合并成功完成!回答人的补充2009-07-0910:33j=Range(a65536).End(xlUp).RowCells(j+1,1).SelectActiveSheet.PasteNextiEndSub