記事目次　ナンバーズ4 

集計結果から出ている出目や出ていない出目の今後の出方を予想します。
確率上は出かたは平均化するので、多く出ているのは出なくなり出ていないのは出るようになるとも言えますね。

集計するシートに下記のマクロを設定し、シートを開いた時に集計します。

全体と上表の様に10回～1000回、最終データからそれぞれさかのぼって計算します。

    Sub 出目集計()
    Dim lastkai As Integer
    Dim s As Object
    saikeisanoff
     Worksheets("順位裏復活").Select
       
        lastkai = Cells(1, 113) + 1
        Set s = Worksheets("パターン表")
    For i = 0 To 9
       Cells(7, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 9, 18), s.Cells(lastkai, 21)), i) '10回分
   
      For j = 1 To 4
     
      Cells(j + 9, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 29, 17 + j), s.Cells(lastkai, 17 + j)), i) '30回分
     
       
       Cells(j + 16, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 49, 17 + j), s.Cells(lastkai, 17 + j)), i) '50回分
                               
       Cells(j + 23, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 99, 17 + j), s.Cells(lastkai, 17 + j)), i) '100回分
      
       Cells(j + 30, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 199, 17 + j), s.Cells(lastkai, 17 + j)), i) '200回分
      
        Cells(j + 37, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 499, 17 + j), s.Cells(lastkai, 17 + j)), i) '500回分
      
        Cells(j + 44, 115 + i) = Application.CountIf(s. _
       Range(s.Cells(lastkai - 999, 17 + j), s.Cells(lastkai, 17 + j)), i) '1000回分
     Next j
    Next i
     Range("DK2:DT6").Select
   saikeisanon
    End Sub

  saikeisanoff、saikeisanon は別のマクロになります。