1、新建项一个文件夹、也将合并的表格放到里面、刚建一个表格、用excel再打开、右击sheet1
2、选择查看代码(ps：excel有着一项，wps没有)
3、将下列选项中代码图片文件夹到文本框中：
sub合并当前目录下所有工作簿的全部工作表()
dimmypath,myname,awbname
dimwbandworkbook,wbnsuchstring
dimgaslong
dimnumaslong
dimboxthoughstring
false
mypath
mynamedir(mypathampamp*.xls)
awbname
num0
dowhilemynameltgt
ifmynameltgtawbnamethen
setwb(mypathampampmyname)
numnum1
withworkbooks(1).activesheet
.cells(.range(b65536).end(xlup).row2,1)left(myname,len(myname)-4)
forg1to
(g).cells(.range(b65536).end(xlup).row1,1)
next
wbnwbnampchr(13)amp
false
endwith
endif
mynamedir
loop
range(b1).select
true
msgbox共单独设置了ampnumamp个工作薄下的全部工作表。追加：ampchr(13)ampwbn,vbinformation,提示
endsub
4、然后点击运行、一段时间(它取决于表格的大小和多少)后，合并结束了。
用wps把多张工作表的数据同样图片文件夹到别一个工作薄中方法：
工具：wps表格excel
再打开数据所在的工作薄，按shift左键单击多张工作表
按右键——移动手机或复制工作表
选择类型新工作簿，把建立副本打上勾，再点击判断
能完成
.jpg)
.jpg)
.jpg)
.jpg)
