以指定间隔行数为周期进行多种统计

WYS67

如截图所示：按B3指定的间隔行数为周期，对A列已输入的数据进行各种动态统计。公式里需要嵌套OFFSET($A$5,(ROW()-5)*$B$3,,$B$3)    或    INDIRECT("A"&(ROW()-5)*$B$3+5&":A"&(ROW()-4)*$B$3+4)   来计算逐个周期引用的数据区域，非常麻烦，而且当数据量过大时，计算速度也非常慢。因此想用一个简便的自定义小程序，ZQ(A5:A100000,B3)代替上述繁琐的内嵌公式，详细规则和要求在附件里，请大神们帮忙写出VBA代码。

      按指定周期进行多种统计.zip (18.4 KB, 下载次数: 4)

2018-7-15 04:32 上传

点击文件名下载附件

      

WYS67

希望大神们帮忙！

不知道为什么

WYS67 发表于 2018-7-15 14:36
希望大神们帮忙！

换了个ID来重复发帖，也是醉了！

jiminyanyan

不知道为什么 发表于 2018-7-15 15:02
换了个ID来重复发帖，也是醉了！

这都被你看出来了呀。。。

WYS67

不知道为什么 发表于 2018-7-15 15:02
换了个ID来重复发帖，也是醉了！

老师：论坛是相互交流，先生帮后进的地方。如果没有疑问和困难，谁会去麻烦大神们？作为学长，也是从菜鸟一步步走到今天的。知无不言言无不尽，您愿意帮忙更好，说明您是个热心肠；您不愿意帮大可退后一步。采取奚落打击讥讽的极端方式打击不如自己的，心胸是不是有点狭隘和低俗了？

zhjlgaojuan

Public Function ZQ(Rng As Range, Optional JG As Long = 0)
Dim SourceArr
Dim TargetArr()
Dim i&, y&
SourceArr = Rng
If JG = 0 Then JG = UBound(SourceArr)
ReDim TargetArr(1 To JG)
y = 0
On Error Resume Next
For i = ((Application.ThisCell.Row - 5)) * JG + 1 To ((Application.ThisCell.Row - 5)) * JG + JG
    y = y + 1
    TargetArr(y) = SourceArr(i, 1)
Next
ZQ = TargetArr
End Function
是不是这个意思?

WYS67

zhjlgaojuan 发表于 2018-7-15 15:46
Public Function ZQ(Rng As Range, Optional JG As Long = 0)
Dim SourceArr
Dim TargetArr()

老师：您的代码基本符合我的想法，嵌入B:F的统计公式后能够计算并显示正确结果；但在条件计数的G5输入公式  =COUNTIF(ZQ($A$5:$A$100000,$B$3),G$4) ，右拉至I5时，全部显示#VALUE!错误。目前还不知外面套上其它统计函数时怎样？正在测试中。
   另外，1.能不能自动屏蔽B71:I71以下【A列尚未输入数据的周期】为空白？
             2.能不能让公式以区域数组方式输入，以加快运算速度，提高工作效率？

zhjlgaojuan

countif 不支持数组的,只支持区域,所以,用一个函数想同时实现有点难度.....

WYS67

zhjlgaojuan 发表于 2018-7-15 16:34
countif 不支持数组的,只支持区域,所以,用一个函数想同时实现有点难度.....

老师：有没有能够代替countif执行条件计数的其它自定义函数，面对大数据，需要按周期多次重复按条件计数时，countif的使用频率特别高，但是运算速度却太慢了。

WYS67

坐等大神们帮忙解决问题