愁，睡不着，请大神帮写个代码，见附件

七月安未生

shiruiqiang 发表于 2023-2-10 13:48
利用空闲时间搞好，真的头大。第一张表懒的排序，你或者手工排序，或者按照第二张的复制一下。

辛苦大神啦。我把数据填充进表1，发现表3那个选下拉的会报错，表4也是。另外规章制度那里没有统计出来，显示都是0（当表1的“健全规章制度名称”有文字，不为空时，需要统计数据）。 最后Excel表能生成表“小结”里的文字报告么，或者word的报告，附件有报告模板。

shiruiqiang

能统计的均已统计，小结按照第二张表抄一下，有些没有，怎么小结掉

yz0116

shiruiqiang 发表于 2023-2-12 19:59
能统计的均已统计，小结按照第二张表抄一下，有些没有，怎么小结掉

的确很牛啊

七月安未生

shiruiqiang 发表于 2023-2-12 19:59
能统计的均已统计，小结按照第二张表抄一下，有些没有，怎么小结掉

大神，yyds！

七月安未生

shiruiqiang 发表于 2023-2-12 19:59
能统计的均已统计，小结按照第二张表抄一下，有些没有，怎么小结掉

大神，有个错误。表3汇总的时候在制度统计显示类型错误，加入容错的语句后，虽然程序能执行下去，但是汇总出来的数据是错的。

shiruiqiang

-----------------------

七月安未生

shiruiqiang 发表于 2023-2-12 19:59
能统计的均已统计，小结按照第二张表抄一下，有些没有，怎么小结掉

我把val去掉就可以了。

七月安未生

shiruiqiang 发表于 2023-2-13 09:18
-----------------------

大神表2和表3能按年写个排序吗？我用Range sheets(2).("b6:ae100") Sort key1:=[b6] order=xlDescending指定排序区域和年度降序排序，但是运行结果没有排序，程序也没有报错。

shiruiqiang

----------此次回帖了结---------

七月安未生

shiruiqiang 发表于 2023-2-13 20:43
----------此次回帖了结---------

可以啦，ღ( ′･ᴗ･` )比心