按区域对字段名称汇总--类似隔列求和

grayw

前几天刚在论坛里看到数组小计合计的例子，shiruiqiang大虾说的很对，你的表行列互换再统计就方便多了，供参考~

jjmysjg

翁知江安 发表于 2025-3-26 12:34
Sub test()
Dim i, j, s, t, jhejijine, dhejijine
Dim ar As Variant

运行完毕，没有结果，能否上个附件
谢谢

jjmysjg

翁知江安 发表于 2025-3-26 12:34
Sub test()
Dim i, j, s, t, jhejijine, dhejijine
Dim ar As Variant

能否把起止年份改为动态的起止列号

sdytsxd991122

翁知江安

楼主，这个估计难以实现，因为起止年份是根据需求设定的，需求不同，起止年份自然跟着变化

jjmysjg

sdytsxd991122 发表于 2025-3-26 19:31

自动汇总时带入的无用字段。忘删除了。

jjmysjg

翁知江安 发表于 2025-3-26 20:06
楼主，这个估计难以实现，因为起止年份是根据需求设定的，需求不同，起止年份自然跟着变化

起止年份，能精确都月吗，因为第一行时年月的形式。如：2019年19月

shiruiqiang

来个日历插件就行

sdytsxd991122

翁知江安

jjmysjg 发表于 2025-3-26 20:54
起止年份，能精确都月吗，因为第一行时年月的形式。如：2019年19月

从原理上来说，是可以精确到月的。比方说，求2019年8月到2020年10月借方金额合计。其基本思路和上面的程序差不多，可以看成原来表格的类似“2019.07-2020.06”是由前面的汇总结果。差点忘了，原来程序运行的结果显示在消息框中，请留意。