[已解决]请教老师：如何查找前7位数存在范围？

lygyjt

请教各位老师：任意指定一行，它的前7位数在它上面多少行内能找全？具体请见例子。 查找前7位数存在范围.rar (10.4 KB, 下载次数: 7)

2016-12-26 09:53 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2016-12-26 11:24

这个，通过VBA比较容易解决。

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Range("a1:i" & [a65536].End(3).Row)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 9) = 0
   
6.         For j = 1 To 7    '前7位进字典
   
7.             d(arr(i, j)) = ""
   
8.         Next
   
9.         For ii = i - 1 To 1 Step -1  '上一行开始倒排
   
10.             For j = 1 To 8      '通过是否在字典中排查
    
11.                 If d.exists(arr(ii, j)) Then d.Remove (arr(ii, j))
    
12.                 If d.Count = 0 Then Exit For
    
13.             Next
    
14.             If d.Count = 0 Then arr(i, 9) = i - ii: Exit For
    
15.         Next
    
16.         d.RemoveAll
    
17.     Next
    
18.     [i1].Resize(UBound(arr)) = Application.Index(arr, , 9)
    
19. End Sub
    

复制代码

跳转到最佳答案楼层

tgydslr

又是彩票

grf1973

这个，通过VBA比较容易解决。

1. Sub tt()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     arr = Range("a1:i" & [a65536].End(3).Row)
   
4.     For i = 2 To UBound(arr)
   
5.         arr(i, 9) = 0
   
6.         For j = 1 To 7    '前7位进字典
   
7.             d(arr(i, j)) = ""
   
8.         Next
   
9.         For ii = i - 1 To 1 Step -1  '上一行开始倒排
   
10.             For j = 1 To 8      '通过是否在字典中排查
    
11.                 If d.exists(arr(ii, j)) Then d.Remove (arr(ii, j))
    
12.                 If d.Count = 0 Then Exit For
    
13.             Next
    
14.             If d.Count = 0 Then arr(i, 9) = i - ii: Exit For
    
15.         Next
    
16.         d.RemoveAll
    
17.     Next
    
18.     [i1].Resize(UBound(arr)) = Application.Index(arr, , 9)
    
19. End Sub
    

复制代码

lygyjt

grf1973 发表于 2016-12-26 11:24
这个，通过VBA比较容易解决。

谢谢grf1973老师的指教！太给力了。