Excel多个文件格子如何合并？1. 先把所有要合并的EXCEL放到同一目录下.2. 在当前目录下新建一个EXCEL3. 打开新建的EXCEL按ALT+F114.在sheet1里输入此行不要复制Sub合并工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&*.xls)AWbName=ActiveWorkbook.NameNum=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.CloseFalseEndWithEndIfMyName=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