求一个用Excel选双色球随机号码的公式！

有个王八犊子攻击老子嫌老子用vba了，但是你们看嘛
有些问题不用vba解决不了呀！

'用VBA代码实现！

'按alt+f11进入VBE编辑窗口，然后选择插入----模块----会打开一个模
'块窗口，把下面的代码复制进去--保存，再次按alt+f11返回excel窗口
'按alt+f8打开运行宏窗口，会看到lotto宏，运行它就可以了！
'（代码亲测，希望对你有用）

'-------------以下代码部分，可全部复制我的答案到模块窗口---------------

Sub lotto()
Const spins = 6
Const min = 1
Const max = 33
Dim t As Integer
Dim i As Integer
Dim lucky(spins) As String
For t = 1 To spins
Randomize
lucky(t) = Int((max - min + 1) * Rnd) + min
For i = 1 To (t - 1)
If lucky(t) = lucky(i) Then
lucky(t) = Int((max - min + 1) * Rnd) + min
i = 0
End If
Next i
ActiveSheet.Cells(1, t) = lucky(t)
Next t
Dim blue As Integer
Randomize
blue = Int((16 - 1 + 1) * Rnd) + 1
ActiveSheet.Cells(1, 8) = blue
End Sub

其实可以不用VBA的:
先在A列用=RAND()随机33个红球, 在B列用=RANK()将A列A1-A6的数据排名,那麼排名结果一定是在1-33内, 这6个数据就是你要的啦, 当然,你可以多随机几列,这样