excel填充颜色的问题，重谢

(1).假设你的第一行第一列为体彩的期号,第二列为本期的第1个号,第三列为本期的第2个号,......依次第八列为本期的第7位.
(2).打开你的excel工作表,视图---工具栏---Visual Basic,这样就会调出excel里的宏编辑器.
(3).宏编辑器里最左边的那个红点,录制宏.这时会弹出一个对话框,你输入字母子t(这个字母是快捷键,也就是当按下Ctrl+t时,后面的程序就会运行,你可以随便输),然后确定,然后按那个蓝色的小方块停止录制宏,再按宏编辑器最中间的控件,这时会弹出宏的代码编辑区.
(4). 双击左上方 工程-VBAProject下面的 模块1 这时会出现宏代码编辑区,End Sub上方输入以下代码:
for i=1 to 1000'表示从1到1000行,如果没有那么多期的话,也可以将该数字变小一点,这样程序就会快一点
for j=2 to 8'表示从第2列到第8列
if cells(i,1)="" then exit sub
if cells(i,j)=6 and cells(i,j+1)=5 then'如果横有65
cells(i,j).interior.colorindex=3'背景色为红色
cells(i,j+1).interior.colorindex=3
elseif cells(i,j)=6 and cells(i+1,j)=5 then'如果竖有65
cells(i,j).interior.colorindex=3'背景色为红色
cells(i,j+1).interior.colorindex=3
end if
next j
next i
(5).关闭这个代码编辑区(点右上角的关闭)
(6)