excel 某列单元格数据不停随机变化直至需要的结果如何实现？

来源：百度知道 编辑：UC知道 时间：2024/05/30 02:35:36
（1）假设B列数据全都是随机1-2的数值，然后新建一个按钮，单击按钮后，让B数列数据不停的随机变化，直至我想要的结果时（假设我需要[B10]=[B12]=[B14]=[B16]=2,并且[B11]=[B13]=[B15]=[B17]=1时），按钮停止执行，不知是否能达到这种效果？另外是否可以设定按钮执行次数，我怕会出现无限执行操作也达不到结果。
（2）对于（需要[B10]=[B12]=[B14]=[B16]=2,并且[B11]=[B13]=[B15]=[B17]=1时）这种编法有没有更简单的方式，因为如果我需要更多单元格相等的话，则太麻烦了！
非常感谢大家了!
2楼的答案不行啊，具体应该怎么操作啊

能

Private Sub CommandButton1_Click()
Do
x = 0
y = 0
For i = 10 To 17
Cells(i, 2) = Int(Rnd() + 0.5) + 1
Next
For i = 10 To 16 Step 2
If Cells(i, 2) = 1 Then x = x + 1
Next
For i = 11 To 17 Step 2
If Cells(i, 2) = 2 Then y = y + 1
Next
Loop While x <> 4 Or y <> 4
End Sub