双色球AC值计算有没有EXCEL公式，求公式。。

用VBA编程可以实现。

第一步：输入一个数据清单如图：

第二步：点击开发工具-visual basic-插入模块

第三步：输入自定义函数代码如下：

Function ac(a)
Dim arr(1 To 100)
Dim zharr(1 To 1000, 1 To 3)
Dim zhgs As Integer
Dim gs As Integer '数据个数
gs = 0 '统计数据的个数 即R值
For Each myc In a
gs = gs + 1
arr(gs) = myc.Value
Next myc
zszZS = 0
For i = 1 To gs - 1
For j = i + 1 To gs
zhgs = zhgs + 1
zharr(zhgs, 1) = arr(i)
zharr(zhgs, 2) = arr(j)
zharr(zhgs, 3) = Abs(arr(i) - arr(j))
Next j
Next i
Set zczzd = CreateObject("scripting.dictionary")
For i = 1 To zhgs
If zharr(i, 3) > 0 Then
If Not zczzd.exists(zharr(i, 3)) Then
zczzd.Add zharr(i, 3), 1
End If

End If
Next i
ac = zczzd.Count - gs + 1
End Function
第四步：在C1单元格输入公式：=ac(A1:A$7)。结果如图：

第五步：将C1的公式下拉至C7.结果如图：

例如：6个号号码分别存在B4:G4
数组公式：
=COUNT(1/FREQUENCY(ABS(SMALL(B4:G4,ROW(INDIRECT("1:"&COUNT(B4:G4))))-TRANSPOSE(SMALL(B4:G4,ROW(INDIRECT("1:"&COUNT(B4:G4)))))),ABS(SMALL(B4:G4,ROW(INDIRECT("1:"&COUNT(B4:G4))))-TRANSPOSE(SMALL(B4:G4,ROW(INDIRECT("1:"&COUNT(B4:G4))))))))-COUNT(B4:G4)，然后按ctrl＋Shift＋Enter组合键锁定数组公式；这时Excel将在公式两边自动加上括号“{}”。

AC值也可称为数字复杂度，是指在一组号码组合中，任意两个数字之间不相同的正差值的总个数再减去“正选号码数量-1”的值。 如福利彩票双色球第08012期开奖号码为：03、04、05、16、20、30，正选数量为6，在这6个开奖号码中计算得到任意两个数字之间的不相同的正差值的总个数为14，那么这组号码的AC值就是14-（6-1）=9。

AC值也称作“数字复杂指数”，一组号码中所有两个号码相减，然后对所得的差求绝对值，如果有相同的数字，则只保留一个，得到不同差值个数D(t)，然后，用个数值D(t)减去（r-1）（其中r为投注号码数），这个数值就是AC值。
在双色球中：
（1）不包括篮球，r-1=6-1=5，六个号码最多有15个差值，当所有差值都不同的时候，D(t)得到最大值15，AC值最大为15-(6-1)=10。
（2）包括篮球，r-1=7-1=6，七个号码最多有21个差值，当所有差值都不同的时候，D(t)得到最大值21，AC值最大为21-(7-1)=15。
例如，有一注投注结果为 01 15 20 21 22 30 + 12。
这一注内各数之间的21个差值为：
12-01=11，15-01=14，20-01=19，21-01=20，22-01=21，30-01=29；
15-12=3，20-12=8，21-12=9，22-12=10，30-12=18；
20-15=5，21-15=6，22-15=7，30-15=15；
根据上述自己可在EXCEL中编程，不复杂。