跪求随机生成1-100的不重复随机函数或者VBA代码？

wangweihebtu

LIWENHUI2002970 发表于 2020-3-10 08:40
你好，你这个怎么使用？？麻烦你教教我使用

1、我不知道为什么随机数还不能重复？有没有具体个数要求

2、楼上那个兄弟写的是自定义函数，你新建一个模块，复制进去，直接用公式即可，不过他那个有重复

      =RandomNumbers(1,100)

renkangjizhen

numb = Application.WorksheetFunction.RandBetween(1, 100)
如果是取整数numb = int(Application.WorksheetFunction.RandBetween(1, 100))

一把小刀闯天下

Option Explicit

Sub test()
  Dim i, n, arr(1 To 100, 1 To 1)
  Randomize
  For i = 1 To UBound(arr, 1)
    n = Int(Rnd * i) + 1
    arr(i, 1) = arr(n, 1)
    arr(n, 1) = i
  Next
  [a1].Resize(UBound(arr, 1)) = arr
End Sub

northwolves

可借助单元格实现

1. Sub test()
   
2. [a1:a100] = [row（1:100）]
   
3. [b1:b100] = "=rand()"
   
4. [a1:b100].Sort [b1]
   
5. [b:b] = ""
   
6. End Sub

复制代码

micch

1-100的不重复随机数。 这个表达还不够完整，这种问题有 三个规则。第一是数字的起止区间，就像你说的1-100，第二是生成多少个数字，10个，还是50个？第三就是生成整数，还是可以小数。这里一般都会被默认是整数。

太阳之子

=MOD(SMALL(RANDBETWEEN(ROW(1:100),199)/1%+ROW(1:100),ROW(1:100)),100)+1