ロト６の買い方を考察している中で、最近見たYou Tube動画【seki確率統計攻略チャンネル】を参考にして、ヒントを得まして、これを少し改良したものを筆者が考えました。
まず過去における最新の当選番号から１００組を抽出して、当選番号の分布表をＭＳエクセルで作ります。
本数字とボーナス数字で複数のセルを埋めます。
例えば、
本【01、07、11、28、38、43】ボ【14】
↓↓↓
本数字とボーナス数字から、新たに一致した数字のセル値に１を立てて、この１を関数ＳＵＭで集計した「分布表」を眺めると、不思議なことに「出現数の多い数字」と「出現数の少ない数字」に分けることができます。
ここでは「出現数の多い数字」を利用します。目視で出現数の多い数字を並び替えた上位２８個の数字を使います。また残りの１５個の出現数の少ない数字は理由なく捨てます。要するに、０１〜４３までの数字４３個のうち、３分の２を活用します。
↓【seki確率統計攻略チャンネルより】↓
出現数の多い数字の上位２８個から、上位５個の数字を抜き出します。すると、この５個の数字から、ロト６の本数字２列を作ることができ、そのパターンは１０個できます。
例えば、上位５個【ａ、ｂ、ｃ、ｄ、ｅ】とするときの１０パターンは、
１２列
ａｂ
ａｃ
ａｄ
ａｅ
ｂｃ
ｂｄ
ｂｅ
ｃｄ
ｃｅ
ｄｅ
残り４個の本数字は自分で考えて書き足します。その確率の詳細は【seki確率統計攻略チャンネル】を参考してください。この確率はもしも１等ならば、約６分の１に減少するらしいです。
以下、筆者の考えを織り交ぜます。
筆者はこれをＭＳエクセルのExcelVBAプログラミングからマクロで実現したいと思います。それはエクセル既存の関数の組み合わせでは、イメージ通り作れないからと思いますので。
筆者のイメージは、ロト６の本数字とボーナス数字から成る７セル分（行）から、右の方向に当該セルに１を立てる分布表を自動生成して、その分布表から関数ＳＵＭを使い分布表トップに集計した数字を求めて、分布表トップの集計値から最大値を求めて、上位２８個の数字を抜き出します。
この上位２８個の数字から、上位５個の数字、中位５個の数字、下位５個の数字をそれぞれ抜き出して、ロト６購入の本数字を１０パターン、自動生成させるマクロ（Functionプロシージャー）を作成していきます。その理由は自分で数字を考えるのも面倒くさいので。
そのイメージは、
上位５個の数字【ａ、ｂ、ｃ、ｄ、ｅ】
中位５個の数字【ｆ、ｇ、ｈ、ｉ、ｊ】
下位５個の数字【ｋ、ｌ、ｍ、ｎ、ｏ】
１２列３４列５６列
ａｂ ｆｇ ｋｌ
ａｃ ｆｈ ｋｍ
ａｄ ｆｉ ｋｎ
ａｅ ｆｊ ｋｏ
ｂｃ ｇｈ ｌｍ
ｂｄ ｇｉ ｌｎ
ｂｅ ｇｊ ｌｏ
ｃｄ ｈｉ ｍｎ
ｃｅ ｈｊ ｍｏ
ｄｅ ｉｊ ｎｏ
になり、ほか、３つずつずらすパターンもアリかと思います。
しかしながら、ロト６購入の１０パターンを自動生成したとしても、最終的には、やはり運次第、運任せ、という無責任な結果にしますが、でも、こんな買い方も面白いと思います。
現在、ウェブページ「エクセルの神髄」を参考にして、ExcelVBAを勉強中につき、少々時間を頂きます。果たして、筆者にExcelVBAコードが書けるか謎ですが、２６年前に、字句解析スクリプト：ＧＡＷＫを書いた経験もあり、やりますよ。
以上