关于按照月份汇总，请各位赐教

ezail_1984 · 发表于 2018-11-19 07:57

老师们好，如附件所示格式，表中有N个月员工保险缴纳的明细，每个月的数据数量、相关金额或人员都所有差异，请问如何快速按照统计表的格式汇总出每个月“公司缴纳”的保险金额，个人的不用计算在内，谢谢。
由于格式中很多合并单元格，用函数试了很久，均不理想，希望老师们能用VBA帮忙解决，谢谢。

MOY838840554 · 发表于 2018-11-19 08:09

你模拟的表格是实际情况？每个月的都在一个表格里？每个月的序号数量一样么

朱荣兴 · 发表于 2018-11-19 08:17

提示: 作者被禁止或删除内容自动屏蔽

MOY838840554 · 发表于 2018-11-19 08:52

本帖最后由 MOY838840554 于 2018-11-19 08:57 编辑

你录入表的方式才导致你统计困难，给你调整的表格自己琢磨
TIM截图20181119085611.jpg

朱荣兴 · 发表于 2018-11-19 09:04

提示: 作者被禁止或删除内容自动屏蔽

ezail_1984 · 发表于 2018-11-19 09:55

MOY838840554 发表于 2018-11-19 08:09
你模拟的表格是实际情况？每个月的都在一个表格里？每个月的序号数量一样么

你好，201501-201806，每个月的格式和附件中一样，每月中的序号数量很少有一样的。

ezail_1984 · 发表于 2018-11-19 09:57

朱荣兴发表于 2018-11-19 08:17
楼主最初设计表格的思路就非常不科学，每个月一个表头，这样就给后期处理带来很大麻烦，不放改变一下你的表 ...

是的，但这是主承销商要求的格式，不得有任何变动，除了表头，在我的认知能力内，合并单元格是汇总的大忌，所以才跑道论坛上请教各位。

ezail_1984 · 发表于 2018-11-19 09:57

MOY838840554 发表于 2018-11-19 08:52
你录入表的方式才导致你统计困难，给你调整的表格自己琢磨

谢谢您提供的思路，我试一下。

ezail_1984 · 发表于 2018-11-19 09:59

朱荣兴发表于 2018-11-19 09:04
Sub 汇总()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictiona ...

谢谢老师，我试一下。

ezail_1984 · 发表于 2018-11-19 10:18

朱荣兴发表于 2018-11-19 09:04
Sub 汇总()
Set d = CreateObject("scripting.dictionary")
Set dic = CreateObject("scripting.dictiona ...

老师，非常感谢您的帮助，这个VBA非常好用，能完美解决我的问题；

		自动登录	找回密码
密码			免费注册

[求助] 关于按照月份汇总，请各位赐教

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-11-19 08:17 \| 显示全部楼层 [广告] ★会Excel,就能做支持PC、手机、Web、App、Windows、安卓、IOS、Linux信息一体化的各种管理系统 ★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-11-19 09:04 \| 显示全部楼层 [广告] ★ ChatOffice，能听会写的AI办公，包含百种Excel、Word、PPT工具，兼容WPS，百倍效率！★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报