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

本文主要是介绍双色球预测算法，居于 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 = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("Q1:Q3").Select
Selection.Copy
Range("U1").Select
ActiveSheet.Paste
Range("Q31:Q33").Select
Application.CutCopyMode = False
Selection.Copy
Range("U4").Select
ActiveSheet.Paste
Range("Q16:Q20").Select
Application.CutCopyMode = False
Selection.Copy
Range("U7").Select
ActiveSheet.Paste
Range("U1:U11").Select
Application.CutCopyMode = False
Selection.Copy
Range("U12").Select
Selection.Insert Shift:=xlDown

End Sub