ボックスペア集計して見ました。

ダブルの場合は同じペアが2つになります。2回出たとします。

・出現回数
・最大はまり
・確率
・現在のハマリ
を集計してます。

マクロは
以下のように簡単に作成しました。

Sub ペア回号間隔()

Dim i As Long, kaigo As Long, j As Long
Dim caunter As Long, reiti As Long
Dim bx_no As Range, start As Long


Sheets("二桁").Select

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

Range("qh13:sj19,qh21:sj2000").ClearContents

Range("qc21") = "=LEFT(原本!CO3,2)" '445列
Range("qd21") = "=LEFT(原本!CO3,1)&RIGHT(原本!CO3,1)" '446列
Range("qe21") = "=RIGHT(原本!CO3,2)" '447列
Range("qc21:qe21").Copy Range(Cells(22, 445), Cells(20 + kaigo, 447))

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

i = 21
Do Until i = kaigo + 21

Cells(i, 444) = i - 20

For j = 1 To 3 'ペアの入力　3つ

　Set bx_no = Cells(i, 444 + j)

　reiti = Range("qh20:sj20").Find(bx_no).Column

　caunter = Application.CountA(Range(Cells(21, reiti), Cells(500, reiti))) '出現回数

　Cells(19, reiti) = caunter + 1

If caunter = 0 Then '最初の出力

　Cells(521, reiti) = Cells(i, 444) '当選回号

　Cells(21, reiti) = Cells(i, 444) '当選間隔

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

Else '次回以降の出力

　Cells(521 + caunter, reiti) = Cells(i, 444) '当選回号

　Cells(21 + caunter, reiti) = Abs(Cells(520 + caunter, reiti) - Cells(521 + caunter, reiti))

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

End If


Cells(18, reiti) = Application.Max(Range(Cells(21, reiti), Cells(500, reiti))) '最大ハマリ
Cells(17, reiti) = Application.Average(Range(Cells(21, reiti), Cells(500, reiti))) '平均出現確率
Cells(16, reiti) = kaigo - Cells(i, 444) '現状ハマリ

Next j

caunter = 0
i = i + 1
　
Loop

Call saikeisanon

End Sub