求真正的大神 大数据 谢谢

fengxinkong

求大神 急用 谢谢

fengxinkong

求真正的大神帮忙一下 谢谢

不知道为什么

fengxinkong 发表于 2018-10-11 13:11
前面几个大神 一看就知道我哪里错了。你却看不懂 ，还怪我浪费时间。

那你告诉我 你说的 E-N 的10万个数字在哪？  附件E-H 不是空白？

还有，符合条件的结果如何输出？

自己对附件不认真，需求不说详细，不是浪费别人时间？

不知道为什么

fengxinkong 发表于 2018-10-11 15:14
求真正的大神帮忙一下 谢谢

如图

fengxinkong

不知道为什么 发表于 2018-10-11 19:02
如图

向你道歉。确实是我的问题。我后面修改了。前面又忘记修改了。非常抱歉。

fengxinkong

不知道为什么 发表于 2018-10-11 19:02
那你告诉我 你说的 E-N 的10万个数字在哪？  附件E-H 不是空白？

还有，符合条件的结果如何输出？

抱歉 我的错。谢谢指正

不知道为什么

fengxinkong 发表于 2018-10-11 20:25
抱歉 我的错。谢谢指正

呵呵，知错就改，善莫大焉！

代码送上供测试

1. Sub test2()
   
2.     Dim Arr, Dic, Fla As Boolean, Brr, Crr, a&, b%, i&, j%
   
3.     Set Dic = CreateObject("scripting.dictionary")
   
4.     Arr = [a1:a10001]
   
5.     Brr = [i1:r10000]
   
6.     Application.ScreenUpdating = False
   
7.     For i = 1 To UBound(Arr)
   
8.         Dic(Format(Arr(i, 1), "00000")) = ""
   
9.     Next i
   
10.     ReDim Crr(1 To 10000, 1 To 10)
    
11.     a = 1
    
12.     For i = 1 To UBound(Brr)
    
13.         For j = 1 To UBound(Brr, 2)
    
14.             Fla = False
    
15.             If Not Dic.exists(Format(Brr(i, j), "00000")) Then
    
16.                 For k = 1 To 5
    
17.                     If Val(Mid(Format(Brr(i, j), "00000"), k, 1)) <> Choose(k, 3, 2, 5, 1, 7) Then
    
18.                         Fla = True
    
19.                     Else
    
20.                         Fla = False
    
21.                         Exit For
    
22.                     End If
    
23.                 Next k
    
24.                 If Fla Then
    
25.                     b = b + 1
    
26.                     Crr(a, b) = Brr(i, j)
    
27.                     If b Mod 10 = 0 Then
    
28.                         b = 0
    
29.                         a = a + 1
    
30.                     End If
    
31.                 End If
    
32.             End If
    
33.         Next j
    
34.     Next i
    
35.     Set Dic = Nothing
    
36.     With Sheet2.[a1].Resize(a, 10)
    
37.         .Clear
    
38.         .NumberFormatLocal = "00000"
    
39.         .Value = Crr
    
40.         Sheet2.Activate
    
41.     End With
    
42.     Application.ScreenUpdating = True
    
43. End Sub
    

复制代码

fengxinkong

不知道为什么 发表于 2018-10-11 20:34
呵呵，知错就改，善莫大焉！

代码送上供测试

老大 我真的是小白，你发这个给我，我是不懂怎么用的。我需要的是 你做好在文档里面，我就可以直接使用了。还有非常感谢您啊。花了这么多时间帮我。谢谢

不知道为什么

fengxinkong 发表于 2018-10-11 20:41
老大 我真的是小白，你发这个给我，我是不懂怎么用的。我需要的是 你做好在文档里面，我就可以直接使用了 ...

附件

筛选符合条件的数字.zip (418.92 KB, 下载次数: 18)

2018-10-11 20:45 上传

点击文件名下载附件

fengxinkong

不知道为什么 发表于 2018-10-11 20:45
附件

答案 对了。可是我点那个2  显示无法运行 宏。。这个就不太懂。比如我 要换 那 一位 二位 三位 四位 五位数字，我是要点 那个2吗