ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     

工作簿汇总,工作表汇总合并,多文件汇总合并 通用代码 支持多层子文件夹

查看数: 41135 | 评论数: 365 | 收藏 402
关灯 | 提示:支持键盘翻页<-左 右->
    组图打开中,请稍候......
发布时间: 2018-4-20 17:06

正文摘要:

本帖最后由 opiona 于 2018-4-24 09:36 编辑 看到论坛求助汇总的贴子很多,总结了几种情况 只做了比较通用的代码和大家分享(完全通用是不可能的) 看上去代码多,是因为几个自定义函数 这个是个人习惯:将常 ...

回复

xuejian51 发表于 2019-7-24 15:07
非常感谢!帮了大忙!
tianzaishan 发表于 2019-7-22 11:52
收藏收藏收藏收藏收藏!
zl8292240 发表于 2019-7-22 11:26
这个不错,很多情况都是现实中需要的
cui26896 发表于 2019-7-21 19:04
opiona 发表于 2019-7-21 18:56
多谢提醒,附件已经无法修改了!

在仔细读老师写的代码,并运行,取中断看效果。
opiona 发表于 2019-7-21 18:56
cui26896 发表于 2019-7-21 17:01
Rem 清空数据保存区域
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name  SH1.Name T ...

多谢提醒,附件已经无法修改了!
cui26896 发表于 2019-7-21 17:01
    Rem 清空数据保存区域
    For Each SH In ThisWorkbook.Worksheets
        If SH.Name <> SH1.Name Then
            SH1.Range("A4:HZ1048576").ClearContents
        End If
    Next
第7例中,SH1.Range("A4:HZ1048576").ClearContents,SH1应该是SH,不知是否正确,楼主可以检查一下。
落魄秀才 发表于 2019-7-20 12:18
多谢分享,学习了&#128077;&#128077;&#128077;&#128077;
qi376723050 发表于 2019-7-19 12:04
好用好用好用好用好用好用好用好用好用好用好用好用好用好用好用好用好用好用
feiyang8878 发表于 2019-7-19 01:31
老师请教一个问题,就是表格在不同的公网位置怎样把3个表的位置放上去,然后进行合并呢?谢谢
关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-7-24 17:07 , Processed in 0.092288 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表