使代码能够忽略数据区域中间的空白单元格进行计算

玉阳山人

大神们：下面的代码只能执行--从数据源G5【开始行号】，至G20002【最后数据行号】 中间没有空白单元格的计算。一旦中间出现空白单元格【G5:G20002之间抹去任何一个数据】，结果输出列I5:K11980就会全部变成空白：
感觉是  If arr(i, 1) = "" Then Exit For 这一句的问题。但去掉这一句后，中间的空格会被默认当做0来计数。而我需要的是：空格就是无、没有的意思，不能默认为是数字0而参与I4指定的0的次数累计！如：当K1为指定为36时，I5:K5的出现次数之为33，少了的3个自然就是3个空白单元格。

Public Function COUNTIFZQ(qy As Range, zq, tj, Optional x = 0)
    Application.Volatile
    arr = qy
    ReDim brr(1 To UBound(arr), 1 To 1) As Variant

    j = 0
     For i = 1 To UBound(arr)
     brr(i, 1) = 0
     Next

    For i = 1 To UBound(arr)
    If arr(i, 1) = "" Then Exit For
    If (i Mod zq) = 1 Then j = j + 1
        If arr(i, 1) = tj Then
            brr(j, 1) = brr(j, 1) + 1
        End If
    Next
         For i = j + x To UBound(arr)
     brr(i, 1) = ""
     Next
    COUNTIFZQ
End Function

按指定周期 进行 条件计数.zip (345.75 KB, 下载次数: 6)

2018-9-8 10:38 上传

点击文件名下载附件

   恳请大神们修改代码，使公式能够忽略数据源 中间的空格，只对指定周期内数据区域的非空单元格进行计数，并显示正确的计算结果。

microyip

1. If arr(i, 1) = "" Then Exit For

复制代码

这里遇到空就退出计算，你代码设置的呀

玉阳山人

microyip 发表于 2018-9-8 10:51
这里遇到空就退出计算，你代码设置的呀

老师：能不能修改成:让公式能够忽略数据源 开始和最后数据中间的空格，显示正确的计算结果？怎样修改？

玉阳山人

microyip 发表于 2018-9-8 10:51
这里遇到空就退出计算，你代码设置的呀

老师：怎样才能修改成：自数据源里最后一个数据开始，遇到空就退出计算？

玉阳山人

cells(rows.count,1).end(3).row  这个 代码是不是代表最后一个数据？怎样修改 If arr(i, 1) = "" Then Exit For为最后一个数据后退出计算？

microyip

UBound(arr)本身就已经限制了是到最后一个单元格，何必要条件那个退出判断呢

玉阳山人

microyip 发表于 2018-9-8 11:29
UBound(arr)本身就已经限制了是到最后一个单元格，何必要条件那个退出判断呢

老师：对VBA我是真的不懂。只是需要：公式能够忽略数据源 中间的空格，显示正确的计算结果。

玉阳山人

microyip 发表于 2018-9-8 11:29
UBound(arr)本身就已经限制了是到最后一个单元格，何必要条件那个退出判断呢

您的意思是：去掉 If arr(i, 1) = "" Then Exit For 这一句就行了？

玉阳山人

希望有大神能够帮忙解决问题。

玉阳山人

microyip 发表于 2018-9-8 11:29
UBound(arr)本身就已经限制了是到最后一个单元格，何必要条件那个退出判断呢

您的意思是：去掉 If arr(i, 1) = "" Then Exit For 这一句就行了？

       但当去掉这一句后，中间出现的空格就会被默认为0，而参与I4指定的“0”的出现次数累计呀！怎样才能把空格当作无、没有，不参与I列0出现次数的累计？