非重复彩票机

子cq()

范围(“c3:e3”)。清除内容

将I表示为字节

i = 3

T1:

当我& lt六

如果Cells(3，i) = "，则

细胞(3，i) =应用。随机区间(1，100)

如果…就会结束

i = i + 1

环

如果应用。或者(单元格(3，3) =单元格(3，4)，单元格(3，3) =单元格(3，5)，单元格(3，4) =单元格(3，5))那么

范围(“c3:e3”)。清除内容

转至T1

如果…就会结束

末端接头

效果如下(如果图片没有动画，请点击图片)