怎么将多个excel快速合并成一个

《怎么将多个excel快速合并成一个》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、Excel多个文件格子如何合并？1.先把所有要合并的EXCEL放到同一目录下.2.在当前目录下新建一个EXCEL3.打开新建的EXCEL按ALT+F114.在sheet1里输入-------------------------------------此行不要复制----------------Sub合并工作表() DimMyPath,MyName,AWbName DimWbAsWorkbook,WbNAsString DimGAsLong DimNumAsLong DimBOXAsString Applicat

2、ion.ScreenUpdating=False MyPath=ActiveWorkbook.Path MyName=Dir(MyPath&""&"*.xls") AWbName=ActiveWorkbook.Name Num=0 DoWhileMyName<>"" IfMyName<>AWbNameThen SetWb=Workbooks.Open(MyPath&""&MyName) Num=Num+1 WithWorkbooks(1).ActiveSheet .Cells(.Range("A65536"

3、).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4) ForG=1ToSheets.Count Wb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1) Next WbN=WbN&Chr(13)&Wb.Name Wb.CloseFalse EndWith EndIf MyName=Dir Loop Range("A1").Select Application.ScreenUpdating=

4、True MsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示" EndSub---------------------------此行不要复制-----------------------5.关闭MicrosoftVisualBasic6.点击   工具-----宏-----安全性  改成低(如果已经改成低,此步骤可以省略)7.点击    工具-----宏-----宏 再点击执行8.稍等1~2分钟 <注意:EXCEL的总行数不要超过6

5、5535行>楼主幸运，以前我找过，朋友给了段vba代码，很方便的SubCombineWorkbooks()DimFilesToOpen,ftDimxAsIntegerApplication.ScreenUpdating=FalseOnErrorGoToerrhandlerFilesToOpen=Application.GetOpenFilename_(FileFilter:="MicrsofeExcel文件(*.xls),*.xls",_MultiSelect:=True,Title:="要合并的文件")IfT

6、ypeName(FilesToOpen)="boolean"ThenMsgBox"没有选定文件"'GoToerrhandlerEndIfx=1Whilex<=UBound(FilesToOpen)Setwk=Workbooks.Open(Filename:=FilesToOpen(x))wk.Sheets().Moveafter:=ThisWorkbook.Sheets_(ThisWorkbook.Sheets.Count)x=x+1WendMsgBox"合并成功完成！"errhandler:'MsgBoxEr

7、r.Description'ResumeerrhandlerEndSub回答人的补充  2009-07-0910:33Subtest()DimiAsInteger,jAsIntegerFori=2ToSheets.CountSheets(i).ActivateActiveSheet.UsedRange.SelectSelection.CopySheets(1).Activatej=Range("a65536").End(xlUp).RowCells(j+1,1).SelectActiveSheet.PasteN

8、extiEndSub