[求助]VBA自动着色与自动对比的问题

pajkxy

请帮忙修改下面的语句，能达到运算需要（B列至F列有一组原有的自然数内容为1-35，需要VBA生成一列随机数进行比较，如果与B列至F列最后7行任意一列相同就停止运行，请您指教。）

Sub tt()
For i = 2 To 100
Cells(i, 11) = Int(35 * Rnd + 1)
Cells(i, 12) = Int(35 * Rnd + 1)
Cells(i, 13) = Int(35 * Rnd + 1)
Cells(i, 14) = Int(12 * Rnd + 1)
Cells(i, 15) = Int(12 * Rnd + 1)
Next
End Sub