[已解决]求助统计最大间隔代码，谢谢高手们了，急

lingdu

要求统计出A列不是某指定数字的连续出现的最大个数。。比如A1是5 A2是3  A3是2 A4是9 A5是8  A6是9   要求统计出除了5和9以外连续出现的最大的间隔数 ，由此推出该数据的最大间隔是 2   
先谢过高手们了

最佳答案

月排行榜 / 总排行榜

liuguansky

2014-10-31 09:29

1.     Dim str As String, r As Object
   
2.     Dim Arr&(1 To 100), m As Object, k&
   
3.     str = Join(Application.Transpose([a1:a15]), "")
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "[01234678]+"
   
7.         If .test(str) Then
   
8.             For Each m In .Execute(str)
   
9.                 k = k + 1: Arr(k) = m.Length
   
10.             Next m
    
11.         End If
    
12.     End With
    
13.     MsgBox Application.Max(Arr)

复制代码

跳转到最佳答案楼层

lingdu

不知道怎么上传附件，上传不了，望高手们见谅，谢谢了

dsmch

1. Sub Macro1()
   
2. Dim arr, d, i&, j&
   
3. arr = Range("a1").CurrentRegion
   
4. Set d = CreateObject("scripting.dictionary")
   
5. For i = 1 To UBound(arr) - 1
   
6.     If arr(i, 1) = 5 Or arr(i, 1) = 9 Then
   
7.         GoTo line100
   
8.     Else
   
9.         For j = i + 1 To UBound(arr)
   
10.             If arr(j, 1) <> 5 And arr(j, 1) <> 9 Then
    
11.                 s = Abs(arr(j, 1) - arr(i, 1))
    
12.                 If Not d.exists(s) Then d(s) = arr(i, 1) Else d(s) = d(s) & "," & arr(i, 1)
    
13.                 Exit For
    
14.             End If
    
15.         Next
    
16.     End If
    
17. line100:
    
18. Next
    
19. MsgBox d(Application.Max(d.keys))
    
20. End Sub

复制代码

dsmch

………………

liuguansky

1.     Dim str As String, r As Object
   
2.     Dim Arr&(1 To 100), m As Object, k&
   
3.     str = Join(Application.Transpose([a1:a15]), "")
   
4.     With CreateObject("vbscript.regexp")
   
5.         .Global = True
   
6.         .Pattern = "[01234678]+"
   
7.         If .test(str) Then
   
8.             For Each m In .Execute(str)
   
9.                 k = k + 1: Arr(k) = m.Length
   
10.             Next m
    
11.         End If
    
12.     End With
    
13.     MsgBox Application.Max(Arr)

复制代码

lingdu

liuguansky 发表于 2014-10-31 09:29

太感谢您了，，完美解决了我的问题，，不过我还想再请教您一下，要是A列C列E列存放数据，，然后在其后面第一个单元格显示其最大间隔数，，怎么修改啊？就是B1显示A列的最大间隔，。。D1显示C列的最大间隔


首先，，非常感谢您了

lingdu

dsmch 发表于 2014-10-31 08:40
………………

谢谢。。。太感谢您了。。。