|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Sub 按钮1_Click()
Set d = CreateObject("scripting.dictionary")
Application.ScreenUpdating = False
Columns(2).ClearContents
arr = ActiveSheet.UsedRange
d1 = arr(1, 4)
d2 = arr(2, 4)
r = 0
Randomize
For j = 1 To Int(UBound(arr) / d1) * d1 Step d1
For i = 1 To d2
l1:
x = Rnd * 99999 Mod d1
If Not d.exists(x + j) Then
d(x + j) = ""
r = r + 1
arr(r, 2) = arr(j + x, 1)
Else
GoTo l1
End If
Next i
Next j
ActiveSheet.UsedRange = arr
Application.ScreenUpdating = True
End Sub
|
|