Excel函数或VBA高手快来解决最大连续出现

只有http://pan.baidu.com/s/1sjQDmEx最好解析一下

2025-05-20 11:10:50

推荐回答（2个）

回答（1）：

'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

回答（2）：

excel各种疑难问题帮解决