请EXCEL高手来,关于批量随机数的

选中单元格区域 复制
右键单击原来单元格区域左上角的那个单元格 选择性粘贴 数值
之后，随机数就不再变化了。

Public Sub sjs()
On Error GoTo line1
Dim rng As Range, rng1 As Range
For i = 0 To 255
Set rng = Range("A1:A10").Offset(k, i)
rng.Select
rng.ClearContents
Randomize
For Each rng1 In rng
Do
rng1 = Int(Rnd * 10 + 1)
Loop Until Application.WorksheetFunction.CountIf(rng, rng1) = 1
Next
If i = 255 Then k = k + 11: i = 0
Next
line1:
End Sub

修改了你复的制代码。嘿嘿，百保证度成千上万知组。道。。

将公式设置为手动重算，这样就不会变了。但是其他公式需要变的也不能变了。最好就是生成随机数后用选择性粘贴粘贴成数字。

如果是这批数据是百连续的，

那么就用选择性粘贴

方法：

选中这批度随随机数

鼠标右键—复制

然后鼠标右键—选择性粘贴—粘贴—数值

如果数据回是不答连续的

只能用VBA了

可联系我



来信写清问题。