按指定条件连接数据，指定位置显示结果

lss001

首先把三处
→j * rn - 2
改为→j * rn - rn + 1

即改为→ if a = 0 then dr(j * rn - rn + 1, 2) = j
     if a =  1 then dr(j * rn - rn + 1, 2) = i
     er(j * rn - rn + 1，2) = i

其次把菜单栏→公式→计算选项→勾选自动
→_→勾选手动无法刷新数据←_←

WYS67

lss001 发表于 2018-10-3 20:28
首先把三处
→j * rn + 2
改为→j * rn - rn + 1

老师：找不到 j * rn + 2，只有3处   j * rn - 2     是不是这个？

WYS67

lss001 发表于 2018-10-3 20:28
首先把三处
→j * rn - 2
改为→j * rn - rn + 1

老师：高！代码已修改，答案完全正确！  

WYS67

lss001 发表于 2018-10-3 20:41
有误
是→j * rn - 2
不是→j * rn + 2

老师：我已经修改并测试过，问题已圆满解决！这个自定义函数很强大，还能够计算表一里的所有问题，            如果把Case "COUNTIF": br(dr(i, 2), 1) = Application.CountIf(Range(Cells(g, rng.Column), Cells(er(i, 2) + 4, rng.Column)), c)  里的COUNTIF 置换成SUMIF()，是不是就能条件求和？

lss001

WYS67 发表于 2018-10-3 21:00
老师：我已经修改并测试过，问题已圆满解决！这个自定义函数很强大，还能够计算表一里的所有问题，       ...

有三处→"COUNTIF"需要改为SUMIF
可条件求和，但只是单条件求和！

WYS67

lss001 发表于 2018-10-3 20:41
有误
是→j * rn - 2
不是→j * rn + 2

老师：A5:A5000里总共有1201个数；当指定数据个数为“8”，最后一个周期的数据没有统计进去，少了B2103:I2103这一行的统计结果，相应地，也少了K154:R154的统计结果，其它指定数据个数的最后一个周期的计算结果正在测试中。请老师看看问题出在哪里了？怎样解决？

WYS67

lss001 发表于 2018-10-3 21:16
有三处→"COUNTIF"需要改为SUMIF
可条件求和，但只是单条件求和！

就像E4:G4列、N4:P4那样呗。

WYS67

lss001 发表于 2018-10-3 21:16
有三处→"COUNTIF"需要改为SUMIF
可条件求和，但只是单条件求和！

Select Case UCase(b): Case"SUMIF",  "COUNTIF", "ZQHS": er(j * rn - rn + 1, 2) = i: End Select

Case "SUMIF": br(dr(i, 2), 1) = Application.SumIf(Range(Cells(g, rng.Column), Cells(er(i, 2) + 4, rng.Column)),  c)

老师：是这样吗？

WYS67

lss001 发表于 2018-10-3 21:16
有三处→"COUNTIF"需要改为SUMIF
可条件求和，但只是单条件求和！

老师：A5:A100000里共有1201【抽样还是偏少】个数据，目前已经测试出不能显示最后一个周期计算结果的有：指定B2:R2为8、11、13，13以后肯定还会出现。

按说无论指定B2:R2有多大多小，都不应该出现这种情况的。

lss001

把→Int(k / rn) * rn
改为→k