VBA Excel 生成不重复随机数（排除法） 方法/步骤 本示例是从Sheet1 A列100个数据中随机抽取20个数据到B列。一、打开工作薄，按ATL+F11组合键打开VB编辑器，点击菜单栏的“插入“，插入一个模块。。
excel一列有重复数据需要随机抽取N次，每次抽取删除已抽取元素 这是为了保证重复数据有较大概率抽中？ excel中使用VBA对一列有重复数据需要随机抽取N次，每次抽取删除已抽取元素（并不是真删除），这是为了保证…
excel随机抽取数据公式 楼主想bai要的功能，du可以通过VBA程序代码zhi处理，也比较简单。dao（1）程序代码如下专：Sub rnd_selection()Dim i1，i2，i3，strOn Error Resume NextRandomizeSet mysheet1=ThisWorkbook.Worksheets(\"Sheet1\")mysheet1.Range(\"N6\")=\"i1=mysheet1.Range(\"O3\").ValueFor i2=1 To i1If str=\"\"Thenstr=mysheet1.Cells(Int(Rnd()*8+3)，Int(Rnd()*12+1))Elsestr=str&\"，\"&mysheet1.Cells(Int(Rnd()*8+3)，Int(Rnd()*12+1))End IfNextmysheet1.Range(\"N6\")=strEnd Sub（2）执行结果如属下图：
VBA随机抽取这两段代码看不懂请解析 num=(Rnd()*((10-x+1)-1)+1)\\ 1 '产生1到10-x之间的随机整数
VBA如何在数组中随机选取一个数 设有数组d(n)有元素d(0)，d(1)，d(2)，.，d(n)，已经存有数据。Randomizex=Int((n*Rnd)+1)'产生1个在[1，n]间的自然数，存入x取d(x)，就是你要的数
请教，如何在VBA中从1，2，3。。。24这24个数值数据中随机抽取3个不重复的值呢？谢谢。
谁能帮编个VBA代码，从90个数据（A1：A90)中随机抽取20个数，并抽取100组（可以重复抽）并把结果列出来。 Private Sub CommandButton1_Click()Dim j，k As IntegerDim i As IntegerFor k=1 To 100For j=1 To 20i=Int(Rnd()*89)+1Cells(j，k+1)=Cells(i，1)Next jNext kEnd Sub喏源数据在A1-A90，然后是随即取值排列在之后的100列里，每列20行
用vba，自动生成10万个自然数，从这10万个数中随机抽取指定个数，被抽取过的数不能被重复抽取 Sub 宏1()Dim iFor i=1 to 100000Cells(i，1)=Rnd()Next iEnd Sub
EXCEL中，从一组数据中随机抽取6个数据，并根据从小到大排序，分别存放在6个单元格中.例：F6到K6分别为计划存放6个数字的单元格，M6到R6是一组不重复的数字：3、10、11、15、17、20、22、26、28、30是个数字.从M6到R6中随机抽取6个数字，然后根据从小到大顺序，对应返回到F6~K6中.因为VBA不太会用，所以最好是公式，还有一个问题：就是从一组不重复数据中随机抽取一个数字的表
