求一个用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个数据就是你要的啦, 当然,你可以多随机几列,这样你就可以多选几注啦.
当然不一定要一列一列的,可以一行一行的弄,比如一下子弄个10注8注也是可以.
中了奖分点红给我哈.

用你的公式不断刷新单元格，直到数值不重复为止
这个玩意毫无意义，它并不是选号的官方程序，甚至思路可能都不一样，还是自己随机选吧

你对我太不客气了。你是在