ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 1101|回复: 18

[求助] 多个excel表格内容套用公式后提取到汇总表

[复制链接]

TA的精华主题

TA的得分主题

发表于 2023-4-25 17:05 | 显示全部楼层 |阅读模式
求助内容:多个excel表格内容套用公式后提取到汇总表

背景:每个月会有很多“工时表”,工时表里面有一些固定的数据需要通过相应的公式进行汇总,然后提取到“汇总”表中。
目前的笨办法:每个工时表里面把公式写进去,汇总好相关数据,然后再借用论坛上汇总的代码(https://club.excelhome.net/thread-1409141-1-1.html),对这些通过公式汇总的数据进行提取。
想问的是:有没有办法在批量汇总的时候就套用好公式并获取相应的数据,而不需要在工时表中填入公式,避免大量手工劳动以及影响工时表的格式?

相关文件:
工时表模板(原始版)
工时表模板 - 加入公式 (加入了汇总公式)
汇总 (用于提取汇总所有数据)

感谢各位大佬指点!!!
工时表样子:
image.png

写入的公式:
image.png

汇总表的样子:
image.png

工时表汇总.zip

47.2 KB, 下载次数: 5

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-26 10:45 | 显示全部楼层
求大佬帮助!!

TA的精华主题

TA的得分主题

发表于 2023-4-26 11:17 | 显示全部楼层
你是只想要最后这个汇总表吗?还是说你需要在每个公示表中有这些公式,同时再做一个汇总表?

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-26 11:27 | 显示全部楼层
xiaoshai0401 发表于 2023-4-26 11:17
你是只想要最后这个汇总表吗?还是说你需要在每个公示表中有这些公式,同时再做一个汇总表?

你好,感谢回复!我只需要最后的汇总表,但是目前汇总表的数据没办法直接从原始工时表里面取得,所以我加了这些公式,最终目的是不加这些公式,或者说通过代码写好公式直接汇总到表里面。

TA的精华主题

TA的得分主题

发表于 2023-4-26 11:49 | 显示全部楼层
kaliwen0 发表于 2023-4-26 11:27
你好,感谢回复!我只需要最后的汇总表,但是目前汇总表的数据没办法直接从原始工时表里面取得,所以我加 ...

好,等下午我回去给你写,这个好弄

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-26 11:50 | 显示全部楼层
xiaoshai0401 发表于 2023-4-26 11:49
好,等下午我回去给你写,这个好弄

太感谢了!!

TA的精华主题

TA的得分主题

发表于 2023-4-26 15:27 | 显示全部楼层
请查收,按照文件夹内除了汇总表外,其余都是工时表来写的,没考虑有其他文件的情况(有其他文件会报错),也没考虑有子文件夹的情况,需要的话还可以改
QQ截图20230426152408.png

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-26 15:47 | 显示全部楼层
xiaoshai0401 发表于 2023-4-26 15:27
请查收,按照文件夹内除了汇总表外,其余都是工时表来写的,没考虑有其他文件的情况(有其他文件会报错), ...

收到,太感谢了,我先按这个试试看

TA的精华主题

TA的得分主题

发表于 2023-4-26 15:59 | 显示全部楼层
刚才的附件好像掉了

工时表汇总.zip

166.1 KB, 下载次数: 11

TA的精华主题

TA的得分主题

 楼主| 发表于 2023-4-26 16:47 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
xiaoshai0401 发表于 2023-4-26 15:59
刚才的附件好像掉了

你好,下面这个语句提示“应用程序定义或对象定义错误”
arr(t, 5) = .Cells(Startrow, 5).Value '姓名
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

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

GMT+8, 2024-11-17 05:50 , Processed in 0.046899 second(s), 9 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

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

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

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