求数据间隔及连续

larer

你在刷抖音,小刀老师在帮你写代码,哈哈.

q563262982

一把小刀闯天下 发表于 2020-6-7 07:49
'38楼附件，分6个小问题来处理，修改起来也方便

'[s3]应该为3。另T列有3处不同，你这规则不唯一，按我 ...

Call qu5(arr, brr, j) '上次连续服用间隔/次  T列 此处应该为 最大连续间隔/次
小刀老师，非常抱歉，昨天大意了，经过再次核对测试 "T列“应该为最大连续间隔/次数,即该列非连续间的最大单次间隔。烦请老师指导，！

一把小刀闯天下

q563262982 发表于 2020-6-8 07:19
Call qu5(arr, brr, j) '上次连续服用间隔/次  T列 此处应该为 最大连续间隔/次
小刀老师，非常抱歉，昨 ...

“最大连续间隔/次数”，你得做示例

如果当前列无连续的，如果当前列只有一块是连续的，如果有2块连续的，还有多块是连续的怎么取值？

--------------------------

觉得这不是你自己的问题，规则都无法明示。这种文字题能上50楼也够晕的，，，

q563262982

一把小刀闯天下 发表于 2020-6-8 13:23
“最大连续间隔/次数”，你得做示例

如果当前列无连续的，如果当前列只有一块是连续的，如果有2块连续 ...

是我的原因，之前没把“上次连续服用间隔/次 ” 改成 “最大连续服用间隔/次”导致的本表附件重新模拟答案，模拟表更详细模拟答案由来。

q563262982

excelvlookup 发表于 2020-6-6 22:06
附件中为什么洛索洛芬的“最大连续服用/天”（第4个计算值）是2，这个没清楚。在答案不完全正确前，不能给 ...

这个是我弄错了，“a2:a"改成“a1:a”计数就正常了。
当时把表头“上次服用连续间隔/次数”写错了，应该是求“最大连续间隔/次数”的表头

一把小刀闯天下

规则不唯一，假设了2种可能结果还是不唯一，看看别人的建议把，，，

q563262982

一把小刀闯天下 发表于 2020-6-8 21:23
规则不唯一，假设了2种可能结果还是不唯一，看看别人的建议把，，，

如果不行就延用该表里面的代码，可求得最大连续间隔，至此作罢算了，感谢老师，老师辛苦了！
最大连续服用间隔/次数    与   当前最大间隔/天，类似如下图，单列示例：

一把小刀闯天下

q563262982 发表于 2020-6-8 22:08
如果不行就延用该表里面的代码，可求得最大连续间隔，至此作罢算了，感谢老师，老师辛苦了！
最大连续服 ...

'你这3列示例根本没用，无法确定规则

'-----------------------------------

'兰索拉唑为什么是3，如果它是3那么1981就是2

'觉得兰索拉唑按2来处理可能性会更大些，还是规则不唯一，按2选1规则处理

'函数整体替换

Function qu5(arr, brr, col)
  Dim i, j, n
  For i = 1 To UBound(arr, 1) - 1
    If arr(i, col) = arr(i + 1, col) And Len(arr(i, col)) > 0 Then
      n = n + 1
      For j = i + 2 To UBound(arr, 1)
        If Len(arr(j, col)) = 0 Then i = j: Exit For
      Next
    End If
  Next
  If n >= 3 Then
    n = n - 2
  ElseIf n = 2 Or n = 1 Then
    n = 0
    For i = UBound(arr, 1) To 2 Step -1
      If arr(i, col) = arr(i - 1, col) And Len(arr(i, col)) > 0 Then Exit For
      If Len(arr(i, col)) Then n = n + 1
    Next
  Else
    n = 0
    For i = 1 To UBound(arr, 1)
      If Len(arr(i, col)) Then n = n + 1
    Next
  End If
  brr(col, 6) = n
End Function

q563262982

一把小刀闯天下 发表于 2020-6-8 23:18
'你这3列示例根本没用，无法确定规则

'-----------------------------------

这是目前值得肯定的最优答案了！感谢！

q563262982

excelvlookup 发表于 2020-5-25 18:39
先找到这句：“If a4 = 0 Then b4 = UBound(ar) - j: a4 = j ”，不用改
再找到这句：“If a1 > 1 And a6  ...

老师，好几天了，也不回我消息，我还在等您优化成三列同时计算的代码呢！
附件已修改！