最后连续
倒着循环
Sub 最后连续次数()
For x = 22 To 8 Step -1
If Cells(x, 2) <> Cells(23, 3) And k > 0 Then Exit For
If Cells(x, 2) = Cells(23, 3) Then k = k + 1
Next
Cells(23, "f") = k
End Sub
最大连续 正循环......
Sub 最大连续次数()
For x = 8 To 22
If Cells(x, 2) = Cells(24, 3) Then
k = k + 1
If k > temp Then temp = k
Else
k = 0
End If
Next
Cells(24, "f") = temp
End Sub
建议百度下基础教程 连续抛出好几个问题
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ号：24596024