ナンバーズ3、4の出目出現状況把握は大事だと思います。
おもに出ている出目、出てない出目。
桁別に見ることによっても特徴が分かる。

上表の様に、当選番号を桁別に分解することによって分析出来ます。（桁別および全体の分析をしたい）
そして関数やマクロを使って細かく分析出来ますね。

エクセルマクロの配列研究3 - 趣味のエクセルで当てよう！ロト・ナンバーズ

配列研究3のマクロを作り直して、出現間隔計算は出来るような気がします。データ的には配列研究3のマクロより少ないので簡単な気がしますが？やって見ないと分かりません。

何を見るのか？
分析したデータから、特徴を探す？
出目の出現パターンです。

出現パターンが繰り返しているなら再現性は有りますね？
再現性有る→予想に活かせる？

マクロを作って載せる予定です。

ナンバーズ4　10回毎の桁別出目出現回数（5600回～5848回）

10回毎に見て分からない場合はもっと短い間隔で見て行きます。

記事目次　ナンバーズ4

（5818回～5843回までの当選データ）

次回の出目は？両隣が候補になる？（絶対では無いが！）

5835回～5843回まで9回連続
4→3→2→1→0→9→8→7→6　長いパタン
4594
4643
7269
1888
6770
8951
8438
5741
9636
次は？

出ない期間は同じ？
2回や3回の休みがまた同じになることも有る？
(緑色線の1部　対称になることが多い？)

出目1つ分かれば？分からなくては当たらない！

上記は、あくまでも参考データです。
絶対的なものでは無いです。

Dim allmydataArr As Variant　配列は必ずVariant変数使用（変数 allmydataArr）

allmydataArr = Range("gh10").CurrentRegion.Valueで表全体を配列に入力
（上の左表6列5803行　セルgh10がデータの左上端　）

For i = LBound(allmydataArr, 1) To UBound(allmydataArr, 1)で配列の中身処理をする
（表の上から下に向かってFor ～ Next で回して行く）

LBound(allmydataArr, 1)で配列の最小値とUBound(allmydataArr, 1)で配列の最大値

表データと同じように出力するのは出力先配列を作っておけば時間が掛からない。
（表の右側に検索したデータを別の配列に入れた後、一括出力する場合）

gk = allmydataArr(i, 2) '表の2列目の値を変数gkに入れる。

----------------------------------------------------------------------------------------------------------------------

Sub 配列研究()

Dim allmydataArr As Variant
allmydataArr = Range("a1").CurrentRegion.Value’表データ全部をallmydataArrに入れる
Range("g1:l2000").Clear

Dim starttime As Single, stoptime As Single
starttime = Timer’ストップウォッチで時間計測開始

Dim piceddataArr(1 To 5900, 1 To 6) As Variant　’検索結果格納用
Dim sagadata As Long: sagadata = 2　’2とする場合
Dim hitdata As Long: hitdata = 0
Dim i As Long, j As Long

For i = LBound(allmydataArr, 1) To UBound(allmydataArr, 1)　’最小から最大まで

   If allmydataArr(i, 2) = 11 And allmydataArr(i, 6) = sagadata Then
       hitdata = hitdata + 1
    For j = 1 To 6
             piceddataArr(hitdata, j) = allmydataArr(i, j)’検索結果1つづつ格納する
    Next j
  End If
Next i

If hitdata >= 1 Then
    Range("g1:l" & hitdata) = piceddataArr’検索結果格納データをセルに出力
Else
    MsgBox "No data"
    End
End If

If i = 10 Then Range("t2") = i

stoptime = Timer’ストップウォッチで時間計測終了
MsgBox "件数は" & hitdata & " 時間は" & Round(stoptime - starttime, 3)

End Sub