创建按指定周期进行条件计数的自定义函数

WYS67 · 发表于 2018-9-4 08:59

本帖最后由 WYS67 于 2018-9-5 14:13 编辑

在日常统计中，经常会遇到按指定周期进行条件计数的问题，网上又找不到类似的函数公式，只得麻烦高手大神们，创建一个准确高效的自定义函数。sub过程也可以【但数据列和输出列要有最大行号限制】。要求在附件里：

按指定周期多条件计数.zip (668.97 KB, 下载次数: 29)
  千辛万苦，在网上搜到和COUNTIF功能相同的自定义函数，姑且命名为COUNTIFZQ ，代码如下：

Function COUNTIFZQ(FindRng As Range, Condition As String)
Dim FindString As String
Dim Cnt As Long
Dim i As Long

FindArr = FindRng.Value
For i = 1 To UBound(FindArr, 1)
      If FindArr(i, 1) Like Condition Then
         Cnt = Cnt + 1
      End If
Next i
COUNTIFZQ = Cnt
End Function
恳请老师们看一下能不能修改其中的代码，变成能够区域数组输入的公式  {  =COUNTIFZQ(数据区域,指定周期,指定条件)  ，以实现附件里要求的计算功能和显示结果？

一句话：就是统计指定间隔行数内的逐个周期里各个元素重复出现了多少次

由于指定了周期间隔行号，如K1为36，而数据和结果显示都是从第五行开始，则I5的公式=COUNTIFZQ(总表!$I$5:$I$100000,$K$1,I$4)  就相当于：I5 =COUNTIF(总表!$I$5:$I$40,I$4)；    I6 =COUNTIF(总表!$I$41:$I$76,I$4)；
   I7 =COUNTIF(总表!$I$77:$I$112,I$4)
   ......
   以此类推。

WYS67 · 发表于 2018-9-4 09:32

希望大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 10:04

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 11:18

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 12:09

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 12:36

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 14:21

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 17:38

跪求大神们帮忙编写代码

WYS67 · 发表于 2018-9-4 18:36

难道这个问题VBA都无法解决吗？

WYS67 · 发表于 2018-9-4 19:55

再顶！跪求大神们帮忙编写代码。

		自动登录	找回密码
密码			免费注册

[求助] 创建按指定周期进行条件计数的自定义函数

点评

评分