欢迎来到天天文库
浏览记录
ID:57091611
大小:261.00 KB
页数:3页
时间:2020-08-02
《合并多个相同的电子表格数据学习资料.doc》由会员上传分享,免费在线阅读,更多相关内容在工程资料-天天文库。
1、合并多个相同的电子表格数据精品文档合并多个相同的电子表格数据1把所有表格放在一个文件夹下如2.在此文件夹下新建一个电子表格,然后打开在第一张工作表名字上点右键选择“查看代码”3.把下面的代码复制进去:Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,WbNAsStringDimGAsLongDimNumAsLongDimBOXAsStringApplication.ScreenUpdating=FalseMyPath=ActiveWorkbook.PathMyName=Dir(MyPath&
2、""&"*.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(.Rang
3、e("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&Wb.NameWb.CloseFalseEndWithEndIfMyName=Dir收集于网络,如有侵权请联系管理员删除精品文档LoopRange("B1").SelectApplication.ScreenUpdating=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"EndSub4.点运行中的运行子过程/用户窗体。完成!收集于网络,如有侵权请联系管理员删除
此文档下载收益归作者所有