Private Sub CommandButton1_Click()
Randomize
For i = 1 To 100
Worksheets("sheet2").Cells(i, 1).Value = trunc(Rnd, 2)
Do While WorksheetFunction.CountIf(Range("A1:A2"), Cells(i, 1)) > 1
Cells(i, 1) = trunc(Rnd, 2)
Loop
Next
Range("B1:B100").Select
Selection.ClearContents
End Sub
以上的 trunc(Rnd, 2) 老是被说编译错误,但是我新手不知道错在那里!请帮帮忙解答一下,谢谢!