第1个回答 2017-03-22
Sub suiji()
s = Array(1, 2, 3, 4)
For i = 0 To 3
r = Int(Rnd() * 4)
t = s(i)
s(i) = s(r)
s(r) = t
Next
shuchu = ""
For i = 0 To 3
shuchu = shuchu & s(i) & ","
Next
shuchu = Left(shuchu, Len(shuchu) - 1)
Range("A" & Range("A65536").End(xlUp).Row + 1) = shuchu
End Sub本回答被提问者采纳