双色球预测算法，居于 EXCEL 宏的推算程序

预测原理：

每一注彩票的随机性，跟大自然中的随机事件或随机过程是一样的。每一天的随机性事件，在第二天看来都是已经发生了的，并且是固定的。

如果把彩票抽奖当天当作是第二天，那么彩票的号码是已经定下来的，而且无法更改。

如果每天的分分秒秒，无时无刻，都在随机出现一注彩票，那么当天一整天出现的所有彩票中，有一注彩票出现了很多次，即相同号码的一注彩票

出现了很多次，可以理解这就是那天最应该出现的彩票，因为它是当天出现概率最高的一注号码。以下以双色球为例，用EXCEL实现的方法。

使用EXCEL实现预测步骤：

1.选中50000个单元格，每个单元格随机出现一个红球号码，然后统计 1 到 33 个红球号码的出现个数，并且从大到小排列。

每个单元格填入：=1+INT(RAND()*33) 表示该单元格自动产生 1 到 33 之间的随机一个号码。

第N列填上 1 到 33 的序列号；

第O列的第一个单元格填入：=COUNTIF($B$1:$K$5000,N1) 表示统计50000号码里各个号码数量

2.取数量最多的前3红球个号码、数量最少的后3红色个号码和最中间的5个红球号码，通过编写宏的办法保存到EXCEL的另一列里。

宏程序如下：

Sub Macro1()
'
' Macro1 Macro
'
' 快捷键: Ctrl+a
'
    Range("N1:O33").Select
    Selection.Copy
    Range("Q1").Select
    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
        xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet4").Sort.SortFields.Add Key:=Range("R1:R35") _
        , SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet4").Sort
        .SetRange Range("Q1:R33")
        .Header = xlGuess
        .MatchCase = False
        .Orientation