[已解决]EXCEL用DO循环改写最大连续文字次数

vbyou127

EXCEL用DO循环改写最大连续文字次数

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-3 14:06

Sub 最大连续次数Do()
    i = 8
    Do While i <= 22
        If Cells(i, 2) = [c24] Then
            k = k + 1
            If k > temp Then temp = k
        Else
            k = 0
        End If
        i = i + 1
    Loop
    Cells(24, "e") = temp
End Sub

跳转到最佳答案楼层

grf1973

Sub 最大连续次数Do()
    i = 8
    Do While i <= 22
        If Cells(i, 2) = [c24] Then
            k = k + 1
            If k > temp Then temp = k
        Else
            k = 0
        End If
        i = i + 1
    Loop
    Cells(24, "e") = temp
End Sub