点击宏按钮后，代码不能计算并显示《总表》Q列以后数据的统计结果

WYS67

再次恳求老师们帮忙解决一楼里的问题

乐乐2006201505

ar = Range(Sheets("总表").Cells(5, 5), Sheets("总表").Cells(Sheets("总表").Cells(1, 8), 16))修改数字16试试。

lss001

<<<<<>>>>>

WYS67

lss001 发表于 2018-9-18 22:45
进步不少了，能大概明白代码！
    把: myS$, myT$, myA$, myB$, a&, b&, c&, d&, e&, f&, g&, i&, j&, k& ...

上面的代码完美地解决了我的问题。感谢老师的无私帮助！

WYS67

lss001 发表于 2018-9-18 22:45
进步不少了，能大概明白代码！
    把: myS$, myT$, myA$, myB$, a&, b&, c&, d&, e&, f&, g&, i&, j&, k& ...

老师：弱弱问一句：如果把
ar = Range(Sheets("总表").Cells(5, 5), Sheets("总表").Cells(Sheets("总表").Cells(1, 8), y))
   
     修改成
ar = Range(Sheets("总表","三同", "组三", "组六").Cells(5, 5), Sheets("总表","三同", "组三", "组六").Cells(Sheets("总表","三同", "组三", "组六").Cells(1, 8), y))

能不能点击宏按钮后，自动对统计表里第二行表名为《三同》、《组三》、《组六》对应列的数据，同时进行计数和更新？

lss001

O(∩_∩)OO(∩_∩)O

WYS67

lss001 发表于 2018-9-19 07:28
把:y = [xfd3].End(xlToLeft).Column
改为:y = 16
即只统计至16列

老师：
把:y = [xfd3].End(xlToLeft).Column
改为:y = 16
即只统计至16列  ？？？  根据原先的  y = [xfd3].End(xlToLeft).Column  是有多少列就统计多少列；改为y = 16，岂不是限制了统计范围吗？为什么需要注意修改？

lss001

⊙▽⊙ ⊙﹏⊙

WYS67

lss001 发表于 2018-9-19 10:35
既然有的时候只要统计至16列
那么增加选择按钮
如果只想要统计至16列时选"是”

计数统计只是手段，目的是方便更详细的分析、判断。但统计表的J5：J27948【H1指定的最大行号】向右的所有区域，好像都在代码的控制中。如截图：

我在《3 结构》的R列，输入求N:Q列出现次数最多的中位号的公式，从上边左表的R列，可以清楚地看到每一行显示的计算结果；但点击《总表》中的宏按钮更新数据后，就只剩下了R4，R5:R27948区域都变成了空白。



老师：有没有办法，使代码在统计表里只能按《总表》第二行--不重复数据个数控制统计表里本项目对应的列数。比如：《总表》Q2为4，代表Q列里总共4个数据，那么《3 结构》的统计则从N列开始，只刷新N O P Q这四列数据，不对R5:R27948的计算结果产生影响？

lss001

标注黄色区公式未受影响
顺便提升一下速度！！！