这个应该不难。可以找IT大神问问
这个你要花钱才能办到
六合彩我做过，能自动更新。主要是要有个稳定的网站自动更新历史数据，这个可以找，网上很多。每次打开excel都自动获取网站数据，可以设计成每次打开都更新，并写好公式，网页开奖数据自动导入excel后，通过公式筛选有效信息，再用公式查找筛选后的数据，写出要各种想要的效果。比如到开奖时间自动获取号码，并比对下注号码，自动计算中了几个号。等等。
思路是：表格不存储数据，每次打开时获取就可以。可以分三个工作表：表一，获取网页开奖数据，可以写出只获取最近N期的公式。表二，写出筛选表一数据的公式并排版，作为原始数据。表三，写出各种公式，查找表二，达到所想效果。因为数据都是每次通过网页获取，所以有一个缺点是：如果网页改版了或失效了，就要再找新网页并另写筛选数据的公式。不过彩票数据是公开的，这太多了，不用担心找不到。
可以参考这个：https://jingyan.baidu.com/article/b2c186c8233e6bc46ef6ffea.html
▲更多精彩内容，请点击上方Excel小铲子▲使用Excel版本
Microsoft Office Professional Plus 2010
版本：14.0.4760.1000（32位）问题
我想用Excel做彩票数据，怎么才能把历史数据做到1000期，或者5000期，要求能自动更新的那种？解决思路
要解决这个问题首先需要找到稳定可靠的数据来源，通过使用百度搜索引擎查找，发现有一个网站提供的实用工具中就有自动更新开奖数据的Excel文件，如果你要求不是很高，直接下载了这个文件后，单击更新按钮就可以随时更新彩票数据了。
为了确保大家的数据安全，我将这家网站的注册备案信息也放在下面，大家可以随时核查。
如果网站提供的Excel文件不能满足你的功能需求，你还可以根据自己的需要对代码进行适当的调整。
我调整后的代码实现了工作簿打开时自动更新，取消网站标题，数据表格从第一行第一列开始等小功能。
由于每次打开工作簿就会从网站中下载包含所有彩票数据的TXT文档，所以需要消耗大约300多KB的流量，在使用的时候请予以关注。解决步骤
新建一个工作簿。
单击文件选项卡→另存为。
将工作簿另存为启用宏的工作簿。
启用宏的工作簿快捷方式图标如下。
单击开发工具选项卡→Visual Basic，或者使用快捷键Alt+F11，打开开发环境VBE。
双击ThisWorkBook，选择Open事件，在模块中输入代码。
完整代码如下，部分语句进行了注释，便于大家根据需要进行修改：
Private Sub Workbook_Open()
Sheet1.UsedRange.Delete '删除Sheet1中的原有数据
With Sheet1
.Cells(1, 1) = "开奖期号"
.Cells(1, 2) = "开奖日期"
.Cells(1, 3) = "红"
.Cells(1, 4) = "红"
.Cells(1, 5) = "红"
.Cells(1, 6) = "红"
.Cells(1, 7) = "红"
.Cells(1, 8) = "红"
.Cells(1, 9) = "蓝"
.Cells(1, 10) = "红"
.Cells(1, 11) = "号"
.Cells(1, 12) = "出"
.Cells(1, 13) = "球"
.Cells(1, 14) = "顺"
.Cells(1, 15) = "序"
.Cells(1, 16) = "投注总额"
.Cells(1, 17) = "奖池金额"
.Cells(1, 18) = "一等注数"
.Cells(1, 19) = "一等金额"
.Cells(1, 20) = "二等注数"
.Cells(1, 21) = "二等金额"
.Cells(1, 22) = "三等注数"
.Cells(1, 23) = "金额"
.Cells(1, 24) = "四等注数"
.Cells(1, 25) = "金额"
.Cells(1, 26) = "五等注数"
.Cells(1, 27) = "金额"
.Cells(1, 28) = "六等注数"
.Cells(1, 29) = "金额"
End With
'设定列标题
Datefilename = "https://www.17500.cn/getData/ssq.TXT"
'设定数据来源
With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & Datefilename, Destination:=Range("A2"))
' Destination:=Range("A2")设定导入的数据从当前工作表sheet1的哪个单元格开始粘贴
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1 '从文本文件的第几行开始导入数据
.TextFileParseType = xlDelimited '数据分隔方式采用定宽度还是定特定符号
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False大佬们都在玩{精选官网网址: www.vip333.Co }值得信任的品牌平台!
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
'设定各列文本格式2是文本1是数值
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Sheet1.Range("A2").Select '返回工作表Sheet1的A1单元格
End Sub
完成代码录入后，单击保存按钮，确保代码已保存。单击关闭按钮，关闭VBE。
至此就可以正常使用了，每次打开工作簿，工作簿都会自动下载彩票数据并粘贴到工作表中。大佬们都在玩{精选官网网址: www.vip333.Co }值得信任的品牌平台!
最终效果
▼更多精彩内容，请点击下方阅读原文▼
我有数据，自己收集整理的从17年到现在。可以联系我。大佬们都在玩{精选官网网址: www.vip333.Co }值得信任的品牌平台!
