按指定周期对总表里的多列数据进行计数统计

13782671637

老师们：请按附件中《1》、《2》里H1:H3的指定条件，和第二、三行的数据源所在表名、列标，对《总表》编写对应列限定区域的数据进行计数统计的sub过程。数据量一大，原来的公式就有些力不从心，卡得不行。

1.以数字作表名的都是需要代码执行计算的对象，如：《1》、《2》......《5》等。                 2.宏按钮最好在《总表》里，点击一下，就能自动计算并显示对应的结果在《1》、《2》......《5》统计表里。    3.能不能用《总表》第二行的不重复数据个数自动确定《1》、《2》......《5》里各个项目需要计数统计的列数？

要求：无论工作簿里有多少个以数字【如《1》、《2》......】命名的统计工作表，也不论每个工作表里有几个需要统计的项目【可以通过对第三行的列标个数统计来获得】，只要点击总表里的宏按钮，就会自动更新需要计算的所有内容！

    按指定周期进行条件计数的代码.zip (1.05 MB, 下载次数: 27)

2018-9-13 15:12 上传

点击文件名下载附件

玉阳山人

作个记号，看看大神们都是怎么解决的

13782671637

恳请大神们帮忙！

13782671637

再次顶起！恳请大神们帮忙！

13782671637

恳请大神们帮忙！

玉阳山人

再次帮你顶起！

lss001

按指定周期进行条件计数的代码.zip (898.14 KB, 下载次数: 16)

2018-9-13 22:03 上传

点击文件名下载附件

lss001

附件已传请下载试试！

13782671637

lss001 发表于 2018-9-13 22:25
附件已传请下载试试！

老师：您写的代码基本上实现了我的设想。运行速度很快！经测试，还有两点需要完善：1.《总表》H1指定的最大行号也应该是个变量，可以是15460，也可以是200000，这样可以灵活地根据工作簿中数据的多少，确定需要计算的工作量；而代码把《总表》的H1当作了定量，只能计算15460行以内的数据；而无法执行超过15460行的计算。

    2.统计表《1》、《2》中，当《总表》的数据总数恰好是《1》、《2》H2指定周期行数的整倍数时，J列以后显示的结果少了最后一行【整倍数的情况下，无论H3指定0或1，其显示的计算结果都应该是一样才对】。

    其它正在测试中，稍后再向您反馈。

13782671637

lss001 发表于 2018-9-13 22:25
附件已传请下载试试！

另外，1.能不能把统计表《1》、《2》、《3》、《4》、《5》的总个数，在代码里设置为动态的--只要是用纯数字命名的工作表，无论是两个、三个、五个，都属于统计表，只要里面的第二、三行输入需要计算的表名和列标，点击《总表》里的COUNTIFZQ按钮，就会自动执行所有统计表里的计数统计。
        2.我把《2》里的AB:AG列的1：4行复制粘贴进《1》里的BO:BT，点击《总表》里的COUNTIFZQ按钮后，发现BO5:BT5下面，并没有显示相应的计算结果。

      于是我想：能不能在代码里，用两个For循环，预先设定从《1》到《10》十个统计表，每个统计表里都可以对十个项目进行计数统计；如果实际工作表只有《1》、《2》、《3》三个，运行到第四个时则自动跳出循环；对每个统计表里的十个项目也照此循环。那么，这个嵌套的循环，就可以对10*10 一百个项目进行统计。

老师：我前些年用过卡西欧编程计算器，它编程语言里就有母子循环。就是不知EXCEL VBA能不能实现？

    我对VBA是个门外汉，以上想法，很可能纯属无知和异想天开，让老师看笑话了。