下载此文档

宏代码合并工作表.docx


文档分类:办公文档 | 页数:约12页 举报非法文档有奖
1/12
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/12 下载此文档
文档列表 文档介绍
宏代码-合并工作表————————————————————————————————作者:————————————————————————————————日期: 宏代码—工作表合并一、:文件—EXCEL选项-常用-在功能区显示“开发工具”:宏-选中相应的宏-:EXCEL选项-信任中心-信任中心设置-个人信息选项-将”保存时从文件属性中删除个人信息“前面的勾去掉二、,首先要在最前页新建一个工作表。如图:“右键”,找到“查看代码”,然后看到宏计算界面。如图所示:步骤阅读步骤阅读看到宏计算界面,我们就只需要把下面的代码复制进去,代码如下,效果如下:Sub合并当前工作簿下的所有工作表()=FalseForj=  IfSheets(j).Name<>    X=Range("A65536").End(xlUp).Row+1    Sheets(j).(X,1)  EndIfNextRange("B1").=TrueMsgBox"当前工作簿下的全部工作表已经合并完毕!",vbInformation,"提示"EndSub或者如下:Sub 合并() For I = 2 To  '如果工作表的第一行都一样,就把下 Rows("1" &  的1改成2就好了 Sheets(I).Rows("1" & ":" & Sheets(I).Range("A60000").End(xlUp).Row). _ Copy Range("A" & Range("A60000").End(xlUp).Row + 1) Next End “运行”下的“运行子过程/用户窗体”就可以了,合并完之后会有提示。提示完成之后就可以把宏计算界面关闭了。如图所示:,:工作表全选—自动筛选—选择列(建议选择文本选项少的列)--勾选重复的标题与空白—删除重复标题与空白三、,并在这个文件夹里面新建一个excel。如图所示:,并右键单击sheet1,找到“查看代码”,单击进去。进去之后就看到了宏计算界面。如图所示:(注意XLS或者XLSX),代码如下,如图所示: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转载请标明出处.

非法内容举报中心
文档信息
  • 页数12
  • 收藏数0 收藏
  • 顶次数0
  • 上传人phl805
  • 文件大小722 KB
  • 时间2019-11-18