把所需合并的Excel文档放在同一个文件夹中,再文件夹中新建一个Excel打开Excel，按ALT+F11，或\x0d\x0a依次点工具，宏，VB编辑器，弹出的编辑器中点插入模块，新弹出的空白窗口中输入以下代码：\x0d\x0aSubCom()\x0d\x0aDimMyPath,MyName,AWbName\x0d\x0aDimWbAsWorkbook,WbNAsString\x0d\x0aDimGAsLong\x0d\x0aDimNumAsLong\x0d\x0aDimBOXAsString\x0d\x0aApplication.ScreenUpdating=False\x0d\x0aMyPath=ActiveWorkbook.Path\x0d\x0aMyName=Dir(MyPath&"\"&"*.xls")\x0d\x0aAWbName=ActiveWorkbook.Name\x0d\x0aNum=0\x0d\x0aDoWhileMyName<>""\x0d\x0aIfMyName<>AWbNameThen\x0d\x0aSetWb=Workbooks.Open(MyPath&"\"&MyName)\x0d\x0aNum=Num+1\x0d\x0aWithWorkbooks(1).ActiveSheet\x0d\x0a.Cells(.Range("A65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)\x0d\x0aForG=1ToWb.Sheets.Count\x0d\x0aWb.Sheets(G).UsedRange.Copy.Cells(.Range("A65536").End(xlUp).Row+1,1)\x0d\x0aNext\x0d\x0aWbN=WbN&Chr(13)&Wb.Name\x0d\x0aWb.CloseFalse\x0d\x0aEndWith\x0d\x0aEndIf\x0d\x0aMyName=Dir\x0d\x0aLoop\x0d\x0aRange("A1").Select\x0d\x0aApplication.ScreenUpdating=True\x0d\x0aMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下："&Chr(13)&WbN,vbInformation,"提示"\x0d\x0aEndSub\x0d\x0a保存---点执行键OK
温馨提示：答案为网友推荐，仅供参考