excel多个相同格式文档合并到一个工作表中宏代码

'注意：工作表的名字字符小于13；中英文都可以(最好是英文)Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&\&*.xlsx)AWbName=ActiveWorkbook.NameNum=0DoWhileMyNameIfMyNameAWbNameThenSetWb=Workbooks.Open(MyPath&\&MyName)Num=Num+1WithWorkbooks(1).ActiveSheet.Cells(.Range(B65536).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=1ToSheets.CountWb.Sheets(G).UsedRange.Copy.Cells(.Range(B65536).End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=DirLoopRange(B1).SelectApplication.ScreenUpdating=TrueMsgBox共合并了&Num&个工作薄下的全部工作表。如下：&Chr(13)&WbN,vbInformation,提示EndSub复制上面的内容到：右键一个工作表--查看代码--复制代码后按F5（运行子过程或用户窗体）如果要不同的excel放到一个excel中分不同工作表：把需要复制的EXCEL文档打开，在需要复制工作表标签上点右键，选择移动或复制工作表，然后在打开的对话框中选择要移动到的文档（即工作簿）--自己新建一个，然后点确实就行了