Excel 怎么用VBA 随机输出数字

VBA生成随机数的函数是rnd，生成的是0到1之间的随机数。如果想生成50到100之间的随机数，可以用以下公式：

Dim a

a = Int(Rnd  50) + 50

End Sub

注解：

rnd50可生成0到50之间的随机数，用int取整数（根据题主的表述，我认为你是只需要整数的），然后再加上50，就是50到100之间的随机整数了。

Sub 随机数()

    For i = 1 To 10

        ThisDocumentRangeInsertAfter Int(Rnd  25 + 5) & ","

    Next

    SelectionEndKey Unit:=wdLine

    SelectionTypeBackspace

End Sub

原发布者:酒醒梦已残08

求教:我的电子表格中rand()函数的取值范围是-1到1,如何改回1到0回答：有两种修改办法：是[1－rand()]/2，或[1＋rand()]/2。效果是一样的，都可生成0到1之间的随机数电子表格中RAND()函数的取值范围是0到1，公式如下：=RAND()如果取值范围是1到2，公式如下：=RAND()(2-1)+1RAND()注解：若要生成a与b之间的随机实数：=RAND()(b-a)+a如果要使用函数RAND生成一随机数，并且使之不随单元格计算而改变，可以在编辑栏中输入“=RAND()”，保持编辑状态，然后按F9，将公式永久性地改为随机数。示例RAND()介于0到1之间的一个随机数（变量）=RAND()100大于等于0但小于100的一个随机数（变量）excel产生60-70随机数公式=RAND()10+60要取整可以用=int(RAND()10+60)我想用excel在B1单元个里创建一个50-80的随机数且这个随机数要大于A1单元个里的数值，请教大家如何编写公式！整数：=ROUND(RAND()(80-MAX(50,A1+1))+MAX(50,A1+1),0)无需取整数：=RAND()(80-MAX(50,A1))+MAX(50,A1)要求:1,小数保留012,1000-1100范围3,不要出现重复=LEFT(RAND()100+1000,6)至于不许重复你可以设置数据有效性在数据-有效性设=countif(a:a,a1)=1选中a列设有效性就好了其他列耶可以急求excel随机生成数字的公式，取值要在3890-4403之间，不允许重复出现，保留两位小数，不允许变藏=round(RAND()5+389,2)公式下拉Excel随机数Excel具有强大的函数功能，使用Excel函数，可以轻松在Exc

不同段的成绩分别用循环来产生。90以上用int(rnd()10)+90,60~90用int(rnd()30)+60，不及格用int(rnd()60)。注意，这样分数全是整数哈。

以上就是关于Excel 怎么用VBA 随机输出数字全部的内容，包括:Excel 怎么用VBA 随机输出数字、使用vba语言如何插入一个随机数,并且每个随机数以,隔开、Excel中用VBA生成随机数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！