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

玉阳山人 · 发表于 2018-9-9 01:23

lss001 发表于 2018-9-8 23:32
11楼代码已经验证可行！
用27楼提供附件测试→

老师：就以27楼附件，11楼代码为例：
1.在G73589:G3590里输入2【0、1、2可以随便输】，则G列最后行号是G73590.  最后周期的数据个数应该为2个。其公式是：=MOD(G3-4【表头占用行数】,K1)    也就是 =MOD(73590-4,9)=2

2.在I5:I11980里输入区域数组公式 {  =COUNTIFZQ(COUNTIFZQ!$G$5:$G$100000,$K$1,I$4,1)  ，右拉到K列；则最后一个周期里，I8181显示0，J8181显示0，K8181显示1，SUM(I8181:K8181)=1，而最后一个周期对应的数据区域是G73589:G73597,里面有G73589:G3590里输入的两个2；

  这样看来，K8181应该为2才对，但显示的结果为1，是不是少统计了最后G73590里的那个2.

请您看一下下边的附件就明白了：

按指定周期忽略空格的条件计数 lss001 .zip (574.82 KB, 下载次数: 8)

lss001 · 发表于 2018-9-9 08:17

玉阳山人发表于 2018-9-9 01:23
老师：就以27楼附件，11楼代码为例：
1.在G73589:G3590里输入2【0、1、2可以随便输】，则G列最后行号是G ...

If i = UBound(arr) - k + 1 Then Exit For少了+1
→11楼已经更新代码！

13782671637 · 发表于 2018-9-9 08:26

lss001 发表于 2018-9-9 08:17
If i = UBound(arr) - k + 1 Then Exit For少了+1
→11楼已经更新代码！

嗯。这次完全正确了！再次感谢老师的耐心帮忙！

lss001 · 发表于 2018-9-9 15:04

本帖最后由 lss001 于 2018-9-9 15:09 编辑

ok!!!!!!!!

lss001 · 发表于 2018-9-10 13:13

本帖最后由 lss001 于 2018-9-12 19:12 编辑

简化代码！！！

13782671637 · 发表于 2018-9-10 17:03

本帖最后由 13782671637 于 2018-9-10 17:06 编辑

lss001 发表于 2018-9-10 13:13
简化代码！！！
Function COUNTIFZQ(qy As Range, zq, tj, Optional x = 0)
Application.Volatile

老师：把45楼的代码复制进附件后，如果指定K1为13，在I5:I11980输入公式：=COUNTIFZQ(COUNTIFZQ!$G$5:$G$100000,$K$1,I$4,1)，右拉至K后，I5665:K5665之和应该等于H3才对。

按指定周期忽略空格的条件计数 lss001 .zip (578.97 KB, 下载次数: 11)

lss001 · 发表于 2018-9-10 20:43

本帖最后由 lss001 于 2018-9-10 21:09 编辑

应把If i = k - qy.Row - 1 Then Exit For中
-1改为+2

13782671637 · 发表于 2018-9-10 21:41

lss001 发表于 2018-9-10 20:43
应把If i = k - qy.Row - 1 Then Exit For中
-1改为+2

正在全面测试验证。

13782671637 · 发表于 2018-9-10 21:55

lss001 发表于 2018-9-10 13:13
简化代码！！！
Function COUNTIFZQ(qy As Range, zq, tj, Optional x = 0)
Application.Volatile

45楼的新代码反复验证后准确无误！谢谢老师！

老师：实际工作表里，类似附件G列的数据源有好几列，并且里面的不重复数据个数也不相同，都需要按周期进行条件计数。计算结果存放在另一个工作表里。遇到这种情况，自定义函数和sub过程哪个更快捷方便？

lss001 · 发表于 2018-9-10 22:09

本帖最后由 lss001 于 2018-10-22 21:11 编辑

←_←→_→

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

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

评分

评分

评分

评分

评分