・ナンバーズ3のボックス出現間隔から集計して見ました。

・リスト000～999に対応したところに出現間隔、回号、当選番号を下に出力

現在間隔は出てない間隔、確率や出現回数、未出maxは最大はまりです。

この「シート原本」を元に上の「シートbox」に出力しています。

ソートして、5425回時点のはまりランキングを表にまとめてみました。

Sub box_degen()　’最初の表の該当セルに出力
Dim i As Long, kaigo As Long
Dim caunter As Long, reiti As Long
Dim bx_no As Range

start = MsgBox("開始しますか？", vbYesNo)
If start = vbNo Then End

Sheets("box").Select

Range("CF5:KQ8,CF10:kq233").ClearContents

kaigo = Sheets("原本").Cells(1, 12)

Sheets("box").Select
Call saikeisanoff　’再計算オフ　別のマクロ

i = 3

Do Until i = kaigo + 3
Set bx_no = Sheets("原本").Cells(i, 93)
reiti = Range("CF9:KQ9").Find(bx_no).Column　’該当列位置を求める
caunter = Application.CountA(Range(Cells(10, reiti), Cells(90, reiti))) '当選回数

Cells(7, reiti) = caunter + 1

If caunter = 0 Then '最初の出力

Cells(100, reiti) = Sheets("原本").Cells(i, 1) '当選回号

Cells(10, reiti) = Sheets("原本").Cells(i, 1) '当選間隔

Cells(200, reiti) = Sheets("原本").Cells(i, 4) '当選番号

Else '次回以降の出力

Cells(100 + caunter, reiti) = Sheets("原本").Cells(i, 1) '当選回号

Cells(10 + caunter, reiti) = Abs(Cells(99 + caunter, reiti) - Cells(100 + caunter, reiti))

Cells(200 + caunter, reiti) = Sheets("原本").Cells(i, 4) '当選番号

End If

Cells(5, reiti) = Application.Max(Range(Cells(10, reiti), Cells(90, reiti))) '最大ハマリ
Cells(6, reiti) = Application.Average(Range(Cells(10, reiti), Cells(90, reiti))) '平均出現確率
Cells(8, reiti) = kaigo - Application.Max(Range(Cells(100, reiti), Cells(190, reiti))) '現状ハマリ
i = i + 1

Loop

Call saikeisanon’再計算オン　別のマクロ

End Sub

Sub box_degen_sort() ’ソートしやすいように縦に出力
Dim i As Long ,ii As Long

For ii = 75 To 80
For i = 1 To 220

If ii = 75 Then Cells(i + 9, ii) = Cells(2, 83 + i)
If ii = 76 Then Cells(i + 9, ii) = Cells(3, 83 + i)

If ii = 77 Then Cells(i + 9, ii) = Cells(5, 83 + i)
If ii = 78 Then Cells(i + 9, ii) = Cells(6, 83 + i)

If ii = 79 Then Cells(i + 9, ii) = Cells(7, 83 + i)
If ii = 80 Then Cells(i + 9, ii) = Cells(8, 83 + i)

Next i

Next ii

End Sub