如何将多个Excel文件合并为一个Excel文件

如何将多个Excel文件合并为一个Excel文件有很多张excel，而且excel表里面的数据格式及公式基本一样，那么是否可以将其合并在一个excel页面呢？其实利用excel表的VB语句就可以实现，具体操作步骤如下所示：Step1：将要合并的Excel表放置在同一个文件夹里面；Step2：在该文件夹中新建Excel；Step3：打开新建Excel，在sheet1处右键，选择查看代码，进入VB代码界面；Step4：将下面“合并当前目录下所有工作簿的全部工作表”代码输入进去；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(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=TrueStep5：点击运行即可实现多个Excel合并。