多个表格合并成一个表格.docVIP

1.将所有的表格放在一个文件夹内，并且在该文件夹里面再新建一个表格； 2.打开新建的表格，右击sheet1，点击查看代码； 3.将合并代码写入文本框，点击运行； 4.代码： Sub合并当前目录下所有工作簿的全部工作表() DimMyPath,MyName,AWbName DimWbAsWorkbook,WbNAsString DimGAsLong DimNumAsLong DimBOXAsString Application.ScreenUpdating=False MyPath=ActiveWorkbook.Path MyName=Dir(MyPath\\*.xls) AWbName=ActiveWorkbook.Name Num=0 DoWhileMyName\ IfMyNameAWbNameThen SetWb=Workbooks.Open(MyPath\\MyName) Num=Num+1 WithWorkbooks(1).ActiveSheet .Cells(.Range(B65536).End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4) ForG=1ToSheets.Count Wb.Sheets(G).UsedRange.Copy.Cells(.Range(B65536).End(xlUp).Row+1,1) Next WbN=WbNChr(13)Wb.Name Wb.CloseFalse EndWith EndIf MyName=Dir Loop Range(B1).Select Application.ScreenUpdating=True 獍?硯共合并了?畎?个工作薄下的全部工作表。如下：?桃???扗?扶湉潦浲瑡潩?提示 EndSub