1、新建一个文件夹、将要合并的表格放到里面、新建一个表格、用excel打开、右击sheet1
2、选择查看代码(ps:excel有着一项,wps没有)
3、将下列代码复制到文本框中:
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=wbn&chr(13)&wb.name
wb.closefalse
endwith
endif
myname=dir
loop
range("b1").select
application.screenupdating=true
msgbox"共合并了"&num&"个工作薄下的全部工作表。如下:"&chr(13)&wbn,vbinformation,"提示"
endsub
4、点击运行、一段时间(取决于表格的大小和多少)后,合并完成了。