使用VBA生成不重复的随机数，刚学VBA的时候，曾带着“如何使用VBA生成不重复的随机数”的疑惑去求知、尝试。下面就分享一下1~33里边选出6个不重复的整数，以及1~16里边选出1。
excel vba 如何随机一定范围的随机数 Application.RandBetween(-15，-11)'-15≤2113 随机数≤-11Application.RandBetween(11，15)'15≥随机数≥11也可以数5261字4102自己改，小的在前大1653的在后
Excel用VBA编程生成给定范围的随机数，且这些随机数和为固定值 Excel用VBA编程生成给定范围的随机数，且这些随机数和为固定值举个例子就是一个班有50个人，我想在想生成一。
excel VBA 如何控制随机数字分布比例？ 因为你分成了2组，一组从1-50里面抽取，二组从51-100里面抽取，抽取原理是一样的，为了不用写重复的代码，写了一个自定义的函数。35=50*70%，20=50*40%，按你的比例算出来的
EXCEL VBA的随机数、平均数和改变背景色的宏求助(急！！！) 为方便调用，下面的代码都是在按钮中实现的如有不满意，请说，呵呵！制作一个宏，可以检验学生分数，如果分数低于50，则该单元格的背景变红Private Sub CommandButton1_Click()Dim selrange As RangeFor Each selrange In SelectionIf selrange.Valueselrange.Interior.ColorIndex=3End IfNextEnd Sub使用随机数生成功能生成一个column的随机学生分数，该column长度自定，分数范围0－100，要求是整数Private Sub CommandButton2_Click()s=InputBox(\"Please input the length\"，\"List length\")For i=1 To sRandomizera=Int(Rnd()*100)Cells(i，1).Value=raNextEnd Sub扩展第一题中的宏，如果鼠标点中任何一个单元格，则从该单元格下面那个单元格为开始的10个单元格内随机生成学生分数，同时小于50的分数的单元格的背景会变红。Private Sub CommandButton3_Click()a=Selection.Rowb=Selection.ColumnRange(Cells(a+1，b)，Cells(a+11，b)).Interior.ColorIndex=xlNoneFor i=1 To 10RandomizeCells(a+i，b).Value=Int(Rnd()*100)If Cells(a+i，b).ValueCells(a+i，b).Interior.ColorIndex=3End IfNextEnd Sub建立一个宏，这个宏能够计算出上题。
EXCEL VBA的随机数、平均数和改变背景色的宏求助(急！！！)
使用VBA生成满足条件的三个随机数，曾经看到这样的一个问题，在Excel表格上面生成三个随机数且最大值、最小值与中间值偏差不超过10%。乍看这个问题的时候，觉得可以使用RAND。
VBA：利用VBA实现几个随机数相加等于指定数，利用VBA实现几个随机数（0-9的随机数）相加等于指定数（0，10，20，30，40）
