本代碼真正的大數據，大過濾，幾百萬次的計算可能只有一個號碼，甚至一個都沒有，可見，通過反覆重算，光循環就是百萬每次每位，每位進行2次循環，本代碼會進入雙色球，原理是一樣的，幾百萬計算，只為了找一個號碼！甚至一個都找不到，要求非常苛刻！
Sub 按鈕877_Click()
Application.ScreenUpdating = False
Application.EnableEvents = False
Dim cs(), cs1(), cs2(), r1 As Range, r2 As Range, r10 As Range, ax&, i&, j&, m&, p&, k&, k1&, y& ‘不寫r as range 結果寫不出來
Dim a(1 To 10) As Integer, b(1 To 10) As Integer
ax = [a65536].End(xlUp).Row
Cells(3, 18).Resize(ax * 4, 20).ClearContents
cs = Range(Cells(1, 3), Cells(ax + 1, 8))
cs2 = Range(Cells(1, 19), Cells(ax * 9, 252))
Set r2 = Range(Cells(1, 19), Cells(ax, 126))
q = 0
For p = 1 To 500000，代碼複雜，計算量非常大，光循環就是50萬每次，可能一個都找不出來，要求非常苛刻！
‘cs1 = Range(Cells(1, 18), Cells(ax, 18))
‘Set r1 = Range(Cells(1, 18), Cells(ax, 18))
‘Set r10 = Range(Cells(ax, 10), Cells(ax, 19))
本代碼，原理是一樣的，幾百萬計算，只為了找一個號碼！
原創文章，作者：投稿專員，如若轉載，請註明出處：https://www.506064.com/zh-tw/n/227966.html
微信掃一掃 
支付寶掃一掃 
