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

13782671637

lss001 发表于 2018-9-8 19:58
qy.Column少了一个点号
已修正╮(╯▽╰)╭

#VALUE!错误还在。

13782671637

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

lss001

请重新复制代码→

13782671637

lss001 发表于 2018-9-8 20:31
请重新复制代码→
k = Cells(Rows Count, qy.Column).End(4).Row - Application.ThisCell.Row - 1

老师：麻烦您在27楼的附件里复制粘贴代码，传上来。

13782671637

lss001 发表于 2018-9-8 20:31
请重新复制代码→
k = Cells(Rows Count, qy.Column).End(4).Row - Application.ThisCell.Row - 1

其实您17：48上传的那个代码【截图为27楼下面的那个】除了在I8181:K11114中全部显示0以外，I5:K8180显示的计算结果完全正确！

13782671637

lss001 发表于 2018-9-8 20:31
请重新复制代码→
k = Cells(Rows.Count, qy.Column).End(4).Row - Application.ThisCell.Row - 1

Function COUNTIFZQ(qy As Range, zq, tj, Optional x = 0)
     Application.Volatile
     arr = qy: ReDim brr(1 To UBound(arr), 1 To 1)
k = Cells(Rows Count, qy.Column).End(4).Row - Application.ThisCell.Row - 1
      For i = 1 To UBound(arr)
         If i = UBound(arr) - k Then Exit For
         If arr(i, 1) = "" Then arr(i, 1) = "#"
         If i Mod zq = 1 Then j = j + 1
         If arr(i, 1) = tj Then brr(j, 1) = brr(j, 1) + 1
    Next
    For i = j + x To UBound(arr): brr(i, 1) = "": Next
    COUNTIFZQ = brr
End Function
粘贴后，下面这一句还是红色的：
k = Cells(Rows.Count, qy.Column).End(4).Row - Application.ThisCell.Row - 1

lss001

Rows.Count中间少了一点！

考虑通用问题，还是改回原来的代码
→详细在11楼！！！

13782671637

lss001 发表于 2018-9-8 21:47
Rows.Count中间少了一点！

考虑通用问题，还是改回原来的代码

老师：先前忙着捯饬新代码，就没有向您反馈，11楼的原代码当公式为=COUNTIFZQ($G$5:$G$100000,$N$1,L$4,0)  时，显示的计算结果正确；
       但当公式为=COUNTIFZQ($G$5:$G$100000,$N$1,L$4,1)  时，最后那个未满周期的计算结果，都比实际少统计一个数--如最后那个未满周期里已输入20个数据，但只能显示19个；最后那个未满周期里已输入1个数据，但显示的结果和 公式=COUNTIFZQ($G$5:$G$100000,$N$1,L$4,0) 计算的结果一样。估计是数据源里最后那个数据没有统计进去。

  麻烦您看一下，代码的哪个地方有误，才会出现这种情况

玉阳山人

lss001 发表于 2018-9-8 21:47
Rows.Count中间少了一点！

考虑通用问题，还是改回原来的代码

老师：如果重新启用11楼的原代码，就还得麻烦您解决38楼里反映的问题。

lss001

11楼代码已经验证可行！