excel一列有重复数据需要随机抽取N次，每次抽取删除已抽取元素 这是为了保证重复数据有较大概率抽中？ excel中使用VBA对一列有重复数据需要随机抽取N次，每次抽取删除已抽取元素（并不是真删除），这是为了保证…
VBA Excel 生成不重复随机数（排除法）
谁能帮编个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行
Excel怎样快速从数据中随机抽取n个不重复显示，修法布施得聪明智慧，多分享让生活更美好。上次分享了《Excel数据随机生成一列非空值》，数据是除空值外全部随机生成。。
如何利用EXCEL函数从一系列已列出的固定数据中随机抽出20个数据为一组的组合？ 方法一：假设数据区域为A1：E80，在该区域外任一位置输入直接输入公式：=OFFSET($A$1，RAND()*80，RAND()*5)注：$A$1是你左上角单元格的位置（如果不是该位置要做相应改变）。。
Excel怎么从一列或一行数据中随机抽取一个数 61 条相关视频 Excel怎么从一列或一行数. 每日科技fa. Excel中如何快速使所有数. 每日科技fa. Excel如何按照固定宽度将. 小熊科技视. Excel报表中的数据如何快. 小熊科技视。
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）执行结果如属下图：
EXCEL中，从一组数据中随机抽取6个数据，并根据从小到大排序，分别存放在6个单元格中.例：F6到K6分别为计划存放6个数字的单元格，M6到R6是一组不重复的数字：3、10、11、15、17、20、22、26、28、30是个数字.从M6到R6中随机抽取6个数字，然后根据从小到大顺序，对应返回到F6~K6中.因为VBA不太会用，所以最好是公式，还有一个问题：就是从一组不重复数据中随机抽取一个数字的表
