1、新建一個資料夾、將要合併的表格放到裡面、新建一個表格、用excel開啟、右擊sheet12、選擇檢視程式碼（ps：excel有著一項，wps沒有）3、將下列程式碼複製到文字框中：sub合併當前目錄下所有工作簿的全部工作表()dimmypath,myname,awbnamedimwbasworkbook,wbnasstringdimgaslongdimnumaslongdimboxasstringapplication.screenupdating=falsemypath=activeworkbook.pathmyname=dir(mypath&"\"&"*.xls")awbname=activeworkbook.namenum=0dowhilemyname<>""ifmyname<>awbnamethensetwb=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,"提示"endsub4、點選執行、一段時間（取決於表格的大小和多少）後，合併完成了。