記事目次　ナンバーズ4

上表のように任意の回数（デフォルトは10回、2回以上で可）毎の集計を表示させます。
ナンバーズ4ボックスペア数字集計マクロの631列～を690列からへ出力
ボックスペア表示部はチェックしてません。631列からと同じ表示にしておきます。

Sub kaisubetu_box_pea() 'ボックスペアを回数毎に計算するbox_pea_kai()で出したデータを元に
Dim Lastgyou As Long, owari As Long, kai As Variant
Dim i As Long, ii As Long
Sheets("ｽﾄﾚｰﾄﾊﾟﾀｰﾝ").Select

Lastgyou = Cells(Rows.Count, 3).End(xlUp).Row
Cells(1, 688) = Lastgyou
i = 4

kai = Application.InputBox("集計間隔を入力して下さい", Default:=10, Type:=1)

If StrConv(kai, vbLowerCase) = "false" Then Exit Sub
Range("zm4:abq7000").ClearContents
owari = Lastgyou + kai - 4

Cells(3, 689) = kai & "回毎"
Call saikeisanoff '再計算を止めて計算を速くする・
For ii = 0 To owari Step kai

For t = 0 To 54　’回数毎に集計
Cells(i, t + 690) = Application.Sum(Range(Cells(4 + ii, t + 631), Cells(ii + kai + 3, t + 631)))
Next t

Cells(i, 689) = kai
If ii > 0 Then
　Cells(i - 1, 689) = ii
　Cells(i - 1, 745) = ii
End If
i = i + 1

Next ii

For l = 0 To 54 'ボックスペア累計出現数
Cells(2, l + 690) = Application.Sum(Range(Cells(4, l + 690), Cells(Lastgyou, l + 690)))
Next l

Call saikeisanon

End Sub

記事目次　ナンバーズ4

一回づつ計算する時は（ここで計算してから上のマクロで回数毎に集計）