发我一份双色球走势图，excel表格的，谢谢了-excel双色球走势图,双色球走势图带连线图

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

'用VBA代码实现！

'按alt+f11进入VBE编辑窗口，然后选择插入----模块----会打开一个模
'块窗口，把下面的7a64e58685e5aeb9332代码复制进去--保存，再次按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

直接在百度查双色球走势图就可以了啊！
没办法自动，只能自己动手排列。差不多半个月就可以排好。我边上班边排两天把开头为1的所有组合排下来了。后面Excel表格需要开会员我就没继续排了

双色球excel自动走势图百，因迁扯到数据更新，只有专业网站才能做到。真没必要保存这个图表，许多彩票网全有度双色球走内势图，随是可以查看，如123彩票、百度彩票等。说句实话，这个图表对于中奖，没容有多大帮助，越看越迷乱！