生成随机无重复唯一编号

时间:2016-02-06 17:31:13

标签: vba excel-vba random excel

我需要从给定的转储中提取一组随机数据。我准备好了数据并且工作正常。

我已经使用rnd()函数以随机方式拾取数据,但有时它会提供相同的输出。

For i = 1 To Worksheets("Output").range("D7").Value - 1
    lowest = 1
    highest = Worksheets("Output").range("T5")
    Randomize
    generateno = Int((highest - lowest + 1) * Rnd() + lowest)
    Gen = generateno
    Sheets("Workings").Select
    range("B1").Select
    ActiveCell.Offset(Gen, 0).Select
    range(Selection, ActiveCell.Offset(0, 3)).Select
    Selection.Copy
    Sheets("Output").Select
    ActiveCell.Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Next i

0 个答案:

没有答案