前几天没有人回答的 Excel 问题，接着提，100分回报.

弄好了。

1，我只要最后1500行。
已实现。运行这个ssq2即可

Sub ssq2()
n = 4
Do While Cells(n, 1) <> ""
n = n + 1
Loop
Range("A" & 1, "G" & 1500).Value = Range("A" & n - 1500, "G" & n).Value
Range("A1501", "G" & n).Clear
End Sub

2，中间不要有空格，（也就是跨年度的空格）。
未发现有跨年度的空格，取数据的那段里自动删掉了吧，为了保证效率略去。

3，五分钟运行一次。
4，运行速度最好快一点。

加一个按钮（从VBA的设计中），然后加入如下代码，点击后即开始自动5分钟运行1次ssq2
VBA我忘了有没有计时器，只好用很低效率的方法实现，在低配置的机器上这段会严重影响机器响应，建议不要，自己人工点

Private Sub CommandButton1_Click()
Do
X = DoEvents()
TimeCount = Timer
If Abs(TimeCount1 - TimeCount) >= 300 Then
ssq2
TimeCount1 = TimeCount
End If
Loop
End Sub

其实不用搞得这么复杂，在EXCEL里建一个WEB查询（只要网站上列出的最近的开奖信息即可），然后用宏设置每5分钟更新一次就可以了
建WEB查询在数据－导入外部数据

专业点的到 office爱好者论坛吧。。或者vclub.excelhome.net论坛，保证有人给你满意的答复，如果解决了，不要忘记给分