excelvba生成随机整数(excel随机数vba处理)

1. excel随机数vba处理

使用随机数，在选定区域对应的行和列的范围内随机生成一个行数和一个列数，即可得到一个随机抽取的单元格，再把这个单元格的内容复制到指定的单元格，连续三次，即可实现随机抽取三个数。随机数的生成举例如下：

- 假设选定区域范围为第a到b列(a<b)，第m到n行(m<n)- 随机选定一列：

C = Int((b - a + 1) * Rnd + a)- 随机选定一行：

R = Int((n - m + 1) * Rnd + m)- 单元格 CR 即为随机抽取的一个数

E1公式=RAND()，拉到G6，用于生成18个随机数

I1公式=RANDBETWEEN(0,1)，拉到K6，生成随机的1或0

A1公式=IF(RANK(E1,$E$1:$G$6)<=6,1,IF(I1=0,2,3))，拉到C6，判断对应的E1:G6区域中对应单元格在E1:G6区域中的排名，如果排在前6，生成1，如果不在前6，根据I1:K6的对应值生成2或3

按F9可以刷新

VBA也能做，不需要辅助列。可我看不出你这个问题有什么意义，不想浪费时间。

VBA生成随机数的函数是rnd，生成的是0到1之间的随机数。1234Sub Button1_Click()Dim aa = Int(Rnd * 10) End Sub

如果你的代码前面有：Option Explicit

那么你的变量d就必须在使用前先进行定义。

Function Volume(aVector, bVector, cVector) As Double

Dim dVecter(1 To 3) As Double

Dim d as Variant '这里增加一个定义变量

Call VecterProduct(Range("B1:B3"), Range("C1:C3"), d)

Volume = Abs(ScalarProduct(Range("A1:A3"), d))

End Function

谢邀，如果不写vba的话，需要加辅助列才能实现这个功能。

如果加辅助列OK的话，我再修改答案。答案修改如下：

插入辅助列若干列，你要随机的区域有多少列就插入多少列

右侧辅助列公式

左侧随机区域的公式：

按F9会刷新，停在你想要的为止

顶一下

(0)

踩一下

(0)