数字を色に換えて数える

エクセルＶＢＡでもう一度やってみた。

マクロ1.
７桁の数字、５０４０個を　１字ずつ７つに分断する。
マクロ2.
一つ目と三つ目（以下二つ目と四つ目…）を　足し、偶数（偶数+偶数あるいは奇数

1. 奇数、つまり同色）（勝ち）か奇数か（異色）の結果を各５個を横のセルに書き込

む。偶数＝０　奇数＝1
マクロ3.　偶数＝ー１、奇数＝０に変換し、（ー２）の（５−ｉ）乗を掛け、２で
割るる。（ｉは１から順に増やす）。＋−＋−＋の順になる（プラスはＡのマイナ
スはＢの勝ちを表す）。結果５個をさらに横のセルに書き込む。
マクロ4.　上記５つの数字を足す。
マクロ5.　結果が、プラス、０、マイナスのものを数える。それぞれ、Ａの勝
ち、引き分け、Ｂの勝ち　に対応。

泥臭いやり方ですがこのようにすると、数えることはできます。

マクロ２

Sub katu2()
宣言部省略
For Each c In Range("b3:b5042")

For j = 1 To 5 '---文字数分だけ繰り返し

If (Cells(c.Row, j + 1).Value + Cells(c.Row, j + 3).Value) Mod 2 = 0 Then
Cells(c.Row, j + 9) = ((Cells(c.Row, j + 1).Value + Cells(c.Row, j + 3).Value) Mod 2) - 1
End If

Next j
Next c
End Sub

マクロ３＋マクロ４

Sub katu3()
宣言部省略
For Each c In Range("j3:j5042")
kk = 0
Sum = 0
For j = 0 To 4
kk = (((-2) ^ (4 - j)) * (Cells(c.Row, (c.Column + j)).Value)) * (-1)
Cells(c.Row, j + 16) = kk
Sum = Sum + kk
Next j
Cells(c.Row, 21) = Sum
Next c
End Sub

マクロ５の代わりに、エクセルらしくピボットテーブルを使ってみる。
−９から２０までの２６個の整数（ないのは−６、７、１３、１９）がそれぞれ、144か288の個数があります。後者は−８、−４、−２、０、２、４、９、１５、１７ですね。
合計１１：２：２２　です。