如何在Excel表10×10方格内自动随机生成1-100自然数

2024-11-22 15:48:17
推荐回答(2个)
回答(1):

输入:"=int(rand()*100+1)"
随机生成的数就可能有重复.
随机排列是可以的.
提供以下方法看你能否接受:
请按步骤操作:
1. 打开控制工具箱. 位置"菜单"->"检视"->"工具列"->"控制工具箱"
2. 在"控制工具箱"点取"指令按钮"
3. 在Excel的适当位置画一按钮
4. 双激按钮,进入代码编辑,在Private Sub CommandButton1_Click()与End Sub之间输入以下内容:
Private Sub CommandButton1_Click() '注意不要重复
Dim a As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer

For i = 0 To 9
For j = 0 To 9

Loop1:
a = Int(Rnd() * 100 + 1)

For k = 0 To 9
For l = 0 To 9
If k = i And l = j Then GoTo Loop2
If Cells(Selection.Row + k, Selection.Column + l) = a Then GoTo Loop1
Next l, k

Loop2:
Cells(Selection.Row + i, Selection.Column + j) = a

Next j, i
End Sub '注意不要重复

5. 点激"控制工具箱"的第一个按钮(图标为三角板和铅笔),结束设计模式
6. 将要产生数据的10X10区域的左上方的第一个单元格选中
7. 点刚才创建的按钮.10X10的格子中就随机产生了你所要的数据.

回答(2):

我不确定你说的是什么意思,但我知道你应该需要"RAND()"这个函数!你可以在这100个单元格里输入=ROUND(RAND()*100,0)也许是你需要的结果!
不好意,刚才忘了取整或四舍五入了!至于不重复就不太好办了!因为你的是在一个10*10的表格里,在一列里应该可以实现!