用Excel或其它来实现在5*5的格子中随机填入1~25个数字

来源：百度知道 编辑：UC知道 时间：2024/05/23 23:12:00
如题
可以用Excel或者其它方法来实现 只要能打印得出来就好
在5*5的格子中随机填入1~25数字,不能重复
万分感谢~~~~

我是假设你25个数字出现在A1:E5
按下ALT+F11,菜单:插入-模块,复制下面代码.然后按下F5运行即可

Sub five()
For Each c In Range("a1:e5")
c.Value = Int(Rnd() * 25) + 1
Do While WorksheetFunction.CountIf(Range("a1:e5"), c) > 1
c.Value = Int(Rnd() * 25) + 1
Loop
Next
End Sub

先建一个两列的表格，一列输入1－25，另列边输入＝rand()*100并拖下来
再建一个5X5的表格，在表格中＝号把1－25中的数据都等过去。
按rand()那列排序，就可以了！
另：双击rand()那列的任一单元格，再回车，再排序，就出来另一个5X5的表格了！