Question

EXCEL公式的求助

最大连续出现次数: 在范围J9:J19里,如果当前连续出现次数超过了J7,那么J7不动,直到当前连续出现终止. (比如J19:J23连续出现5次,这时候J7还是应该是4,如果J24不连续出现了,这时候J7才变成5).还有一个,如果从J9:J19全都是连出的,此时最大连续出现次数应该是0(因为只出现了一次连出),
一.统计"J19:J9"(逆向统计)，号码连续出现的次数，结果显示到"J8"。
这个比较好理解,只要统计逆向的连续次数就行了.

二.统计"J9:J19"最大的 历史连续出现的次数,就是历史最长的一段连续出现的次数.结果显示到"J7". 这个有的情况要涉及到J8的值'

1.当"J19:J9"里面全都是连续出现的数值时,这时候"J7"最大的连续出现的次数应该是原始的,为0;
2.(或者是 当"J9"为空,"J10:J19"连出时,这样的情况,"J7"的最大连出次数也是原始的,为0;)

三.连续出现的数值不要固定为某一个数,这样我可以填写任何值.
当前连续出现次数:从J19往上看,最近连续的次数J9:J19之间出现的数值不要指定,我还需要改成其它的.请老师看看这2个公式在J7和J8应该怎么写

Answer 1

你的问题有点乱！

先看看下面是不是你要的吧：

J7输入

=MAX(FREQUENCY(IF(J9:J19<>"",ROW(J1:J11)),IF(J9:J19<>"",,ROW(J1:J11))))

数组公式，输入后先不要回车，按Ctrl+Shift+Enter结束计算。

J8输入

=11-LOOKUP(1,0/(J9:J19=""),ROW(A:A))

回车即可。

————————————————————

Answer 2

函数做不到的，建议用VBA!~需要的话可以帮你

Answer 3

“在范围J9:J19里,如果J8超过了J7,那么J7还是不变,直到当前连续出现终止.”
我这句话就没看明白，后面的越看越蒙

追问

我改了一下需求,麻烦老师再看看!

Answer 4

可以用VBA函数吗？VBA函数逻辑比较简单

追问

表格数据比较多,公式也比较多,用VBA反而还麻烦啊

追答

这个不影响，把函数放在模块里面就可以啦，整个表格都可以使用的。

追问

行啊,老师,就用VBA!

追答

会写吧？

追问

不会啊.请老师帮忙!

追答

重新梳理一下你的问题：

一、需要统计“J19”向上到“J9”号码最大连续出现次数，结果显示到“J8”（是这样吗？）

二、下面请说出你想要达到的目标效果是什么？

1. 在什么情况下，你需要什么结果？

2. ……。

3. ……。

4. ……。

5. 还有就继续添加
   

要重新梳理一下你的问题：
一、你想要统计“J19:J9”(逆向统计)，号码连续出现的次数，结果显示到“J8”。(问题是这样吗？)
二、下面请说明你想要达到的目标效果是什么
在什么情况下，你想要什么结果。
............。
............。
............。
还有的话继续说明。

追问

辛苦老师了!

追答

Public Function TotalMax(CelRange As Range) As Integer '统计最大连续现出次数
Dim Js As Integer
For i = CelRange.Count To 2 Step -1
If Val(CelRange(i, 1)) = Val(CelRange(i - 1, 1)) Then
Js = Js + 1
Else
If Js > TotalMax Then TotalMax = Js
Js = 0
End If
Next i
If TotalMax > 0 Then TotalMax = TotalMax + 1
If TotalMax >= CelRange.Count - 1 Then TotalMax = 0
End Function

Public Function AcTMax(CelRange As Range) As Integer '统计当前连续出现次数
Dim Js As Integer
For i = CelRange.Count To 2 Step -1
If Val(CelRange(i, 1)) = Val(CelRange(i - 1, 1)) Then
Js = Js + 1
Else
Exit For
End If
Next i

If Js > 0 Then AcTMax = Js + 1
End Function

把代码复制到模中就可以了

追问

辛苦老师了,我把代码放到模块里,然后点运行,它提示我指定宏.
让你见笑了,我还不知道怎么运行这个代码,应该怎么操作呢?

追答

关注我私吧