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

vbyou127

Excel高手用VBA解决最大连续数字次数再改一下

最佳答案

月排行榜 / 总排行榜

dsmch

2016-3-4 21:08

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("e5:e" & Range("e65536").End(xlUp).Row + 1)
   
5. n = 1
   
6. For i = 2 To UBound(arr)
   
7.     If arr(i, 1) = arr(i - 1, 1) Then
   
8.         n = n + 1
   
9.     Else
   
10.         If Not d.exists(arr(i - 1, 1)) Then
    
11.             d(arr(i - 1, 1)) = n
    
12.         Else
    
13.             If n > d(arr(i - 1, 1)) Then d(arr(i - 1, 1)) = n
    
14.         End If
    
15.         n = 1
    
16.     End If
    
17. Next
    
18. [h20] = d([f20].Value)
    
19. End Sub

复制代码

跳转到最佳答案楼层

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. arr = Range("e5:e" & Range("e65536").End(xlUp).Row + 1)
   
5. n = 1
   
6. For i = 2 To UBound(arr)
   
7.     If arr(i, 1) = arr(i - 1, 1) Then
   
8.         n = n + 1
   
9.     Else
   
10.         If Not d.exists(arr(i - 1, 1)) Then
    
11.             d(arr(i - 1, 1)) = n
    
12.         Else
    
13.             If n > d(arr(i - 1, 1)) Then d(arr(i - 1, 1)) = n
    
14.         End If
    
15.         n = 1
    
16.     End If
    
17. Next
    
18. [h20] = d([f20].Value)
    
19. End Sub

复制代码