使用方法:
1、刚建个工作薄,将其命名为你的合并后的名字。
2、再打开此工作薄。
3、在其下任另一个工作表标签上点击右键,选择“打开系统代码”。
4、在打开的vba编辑窗口中剪切粘贴100元以内代码:sub工作薄间工作表合并()dimfileopendimxsuchfalsefileopen(filefilter:microsoftexcel文件(*.xls),*.xls,multiselect:true,title:合并工作薄)x1whilex
方法/步骤
1
把想合并的这些表格在互成文件夹中(我也不想合并的表格就别放在这些文件夹里面了)。
2
按住不放快捷键“altfnf11”会会出现:界面
3
点击最左边的“栏里点代码”这个选项
4
把合并代码复制到文档里面
sub扩展当前目录下全部工作簿的彻底工作表()
dimmypath,myname,awbname
dimwbsuchworkbook,wbnlikestring
dimgaslong
dimnumaslong
dimboxthoughstringfalsemypathmynamedir(mypathampamp*.xls)
awbname
num0
dowhilemynameltgt
ifmynameltgtawbnamethen
setwb(mypathampampmyname)
numnum1withworkbooks(1).activesheet
.cells(.range(b65536).end(xlup).row2,1)left(myname,len(myname)-4)
forg1want
(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
5
这样就可以不完成一个文件夹下全部虽然类型的表格单独设置了,有没太的很简单方便些!