产生不重复的随机数
Sub zjx()
For i = 1 To 36 '如果改成200就是在1-200里选数 Cells(i, 1) = i Next
c = [e2000].End(xlUp).Row Randomize
a = 36 '上面改成200后这边也得更改成200 For i = 5 To 10
b = Int(a * Rnd() + 1) Cells(
c + 1, i) = Cells(b, 1)
Cells(b, 1).Delete Shift:=xlUp
a = a - 1
Next
End Sub
自己做个按钮，每点击一次增加一行。(vba,宏)
看我的吧
Sub Comm()
Randomize Timer
Dim c(100) As Byte
For i = 1 To 100'产生100个随机数
c(i) = i
Next
k = 100
Do While l < 100
r = Int(Rnd() * k) + 1‘随机数的范围
aa = c(r)
c(r) = c(k)
c(k) = aa
k = k - 1
l = l + 1
cells(l,1)=aa
Loop
End Sub
Sub suiji()
c = Cells(65500, 5).End(xlUp).Row Randomize a = Second(Now())
For i = 5 To 10
line1:
b = Second(Now())
x = Abs(Int(b * Rnd() - a - 7))
If x < 1 Then
GoTo line1
End If
With Range(Cells(c + 1, 5), Cells(c + 1, 10)) Set cc = .Find(x, lookat:=xlWhole)
If cc Is Nothing Then
Cells(c + 1, i) = x
Else
GoTo line1
End If
End With a = a - 9 Next
End Sub
