vba能编什么小游戏?

Sub?路缘石()

暗淡?rng?作为?范围,?rng1?作为?范围

暗淡?r%,?r1%,?我%,?j%

用什么?Sheet1

.细胞.内部.图案?=?xlNone

r?=?。单元格(Rows.Count,1).结束(3)。排

r1?=?。单元格(Rows.Count,6).结束(3)。排

为了什么?我?=?2?去哪?r1

为了什么?j?=?2?去哪?r

如果?。细胞(我,?1)?=?。细胞(j,6)?然后

如果?。细胞(我,?2)?& lt& gt?。细胞(j,7)?然后

如果?不是吗?rng?是吗?什么都没有?然后

设置?rng?=?工会(rng,?。细胞(j,7))

其他

设置?rng?=?细胞(j,7)

结束?如果

其他

如果?不是吗?rng1?是吗?什么都没有?然后

设置?rng1?=?Union(rng1,?。细胞(j,7))

其他

设置?rng1?=?细胞(j,7)

结束?如果

结束?如果

结束?如果

然后

然后

rng。内饰。颜色?=?255?红色表示只能上传一列数据。

rng1。内饰。颜色?=?12611584?蓝色表示两列数据都可以对齐。

结束?随着

结束?Sub没有实例数据,请参考本例;