[已解决]Excel高手用VBA解决最大连续数字次数

vbyou127

Excel高手用VBA解决最大连续数字次数

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-3 14:50

Sub test()
    For Each x In Range("e5:e" & [e65536].End(3).Row)
        If x = 1 Then
            n = n + 1
            If k < n Then k = n
        Else
            n = 0
        End If
    Next
    [H20] = k
End Sub

跳转到最佳答案楼层

grf1973

Sub test()
    For Each x In Range("e5:e" & [e65536].End(3).Row)
        If x = 1 Then
            n = n + 1
            If k < n Then k = n
        Else
            n = 0
        End If
    Next
    [H20] = k
End Sub

vbyou127

grf1973 发表于 2016-3-3 14:50
Sub test()
    For Each x In Range("e5:e" & [e65536].End(3).Row)
        If x = 1 Then

Excel最大连续数字次数VBA看不懂解释这句


看不懂解释这句  ，k 代表什么  ，为什么k < n，要将k = n，

   Else  n = 0，为什么又要设为n = 0，

   If k < n Then k = n
        Else
            n = 0


Sub test()
    For Each x In Range("e5:e" & [e65536].End(3).Row)
        If x = 1 Then
            n = n + 1
            If k < n Then k = n
        Else
            n = 0
        End If
    Next
    [H20] = k
End Sub

grf1973

1、n表示连续数。当第一个x=1时，n=1，当下一个x=1时，n=2，。。。。，当连续m个x=1时，n=m。。。。。只要中间有一个x不等于1，那么让n=0，以待下一轮的x=1。
2、k表示最大连续数。因为记录连续数的n一直在变化中，k的作用就是所过程中最大的n找出来。一开始k=0，当n=1,k<n，就让k=n=1，当n=2....时，k也随着n变大而变大。。。。当n变为0时，k>n，保持不变。