预览加载中,请您耐心等待几秒...
1/3
2/3
3/3

在线预览结束,喜欢就下载吧,查找使用更方便

如果您无法下载资料,请参考说明:

1、部分资料下载需要金币,请确保您的账户上有足够的金币

2、已购买过的文档,再次下载不重复扣费

3、资料包下载后请先用软件解压,在使用对应软件打开

1、打开需要将所有单个的EXCLE表合到到一个表的工作簿,新建一个工作表在这个工作表中录入ALT+F11 2、你把下面的代码复制到里边去 3、上面有个运行,运行子程序就可以了。 代码如下Sub合并当前工作簿下的所有工作表() Application.ScreenUpdating=False Forj=1ToSheets.Count IfSheets(j).Name<>ActiveSheet.NameThen X=Range("A65536").End(xlUp).Row+1 Sheets(j).UsedRange.CopyCells(X,1) EndIf Next Range("B1").Select Application.ScreenUpdating=True MsgBox"当前工作簿下的全部工作表已经合并完毕!",vbInformation,"提示" EndSub