下载此文档

合并多个相同的电子表格数据.doc


文档分类:办公文档 | 页数:约2页 举报非法文档有奖
1/2
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/2 下载此文档
文档列表 文档介绍
,然后打开在第一张工作表名字上点右键选择“查看代码”:Sub合并当前目录下所有工作簿的全部工作表()DimMyPath,MyName,AWbNameDimWbAsWorkbook,=FalseMyPath==Dir(MyPath&"\"&"*.xls")AWbName==0DoWhileMyName<>""IfMyName<>AWbNameThenSetWb=(MyPath&"\"&MyName)Num=Num+1WithWorkbooks(1).(.Range("B65536").End(xlUp).Row+2,1)=Left(MyName,Len(MyName)-4)ForG=(G).(.Range("B65536").End(xlUp).Row+1,1)NextWbN=WbN&Chr(13)&=DirLoopRange("B1").=TrueMsgBox"共合并了"&Num&"个工作薄下的全部工作表。如下:"&Chr(13)&WbN,vbInformation,"提示"。完成!

合并多个相同的电子表格数据 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数2
  • 收藏数0 收藏
  • 顶次数0
  • 上传人cjc201601
  • 文件大小259 KB
  • 时间2020-04-25