作者：乔山办公网日期：
返回目录：excel表格制作
'VBA代码
Function TJ(R As Range, v As String) As Integer
rst = 0
cnt = 0
For Each c In R.Cells
If (c.Text = v) Then
cnt = cnt + 1
Else
cnt = 0
End If
If rst < cnt Then
rst = cnt
End If
Next
TJ = rst
End Function
最好再举两个例子，不太明白你要怎么排列。比如U21只是和U20做判定吗？zhidao如果是这样的话那么V21和V20又不是连续的，又怎么显示？
最大连续是不版是找到一对连续的权就显示为正生2,就是有两个连续的？如果还有一对，又显示什么？
在J10单元格输入以下抄公式，然后向下袭填充公式
=IF(COUNTIF(OFFSET(C10:H10,-K$6,),O$6),1,"")
公式表示百：当当前所在行向上偏移三行度的C:H列中出现O6单元格次数达到1次，就显示知1；其他显示为空道。
详见附图
直接用现有的zhidao公式改造即可版。权
=REPLACE(LEFT(G26,3),2,1,)&LOOKUP(4^8,FREQUENCY(IF(REPLACE(LEFT(G10:G26,3),2,1,)=REPLACE(LEFT(G26,3),2,1,),ROW(1:17)),IF(REPLACE(LEFT(G10:G26,3),2,1,)<>REPLACE(LEFT(G26,3),2,1,),ROW(1:17))))
也可
=MID(G10:G26,1,1)&MID(G10:G26,3,1)&LOOKUP(4^8,FREQUENCY(IF(MID(G10:G26,1,1)&MID(G10:G26,3,1)=MID(G26,1,1)&MID(G26,3,1),ROW(1:17)),IF(MID(G10:G26,1,1)&MID(G10:G26,3,1)<>MID(G26,1,1)&MID(G26,3,1),ROW(1:17))))