请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/02 22:03:33
![请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.](/uploads/image/z/2094013-37-3.jpg?t=%E8%AF%B7%E9%97%AE%E5%A6%82%E4%BD%95%E4%BD%BF%E7%94%A8Excel%E6%9D%A5%E5%88%B6%E4%BD%9C%E4%B8%80%E4%B8%AA5X5%E7%9A%84%E8%A1%A8%E6%A0%BC%2C%E5%B9%B6%E8%AE%A91-25%E8%BF%9925%E4%B8%AA%E6%95%B0%E5%AD%97%E9%9A%8F%E6%9C%BA%E5%88%86%E5%B8%83%E5%9C%A825%E4%B8%AA%E5%8D%95%E5%85%83%E6%A0%BC%E9%87%8C.)
请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
这个用 VBA 解决较好,示例参考(右击"Sheet1"工作表标签>>查看代码>>键入下列代码>>按 F5 执行即可):
Sub RND5X5()
Cells.Delete ' 删除原有数据
' 预置初始的 1-25
Range("G10:G34").Formula = "=row()-9"
Range("G10:G34").Value = Range("G10:G34").Value
Dim I%,J%,iRND%,iNum%
Randomize ' 对随机数生成器做初始化的动作.
For I = 1 To 5
For J = 1 To 5
iNum = Application.WorksheetFunction.CountA(Range("G10:G34"))
iRND = Int(iNum * Rnd) ' 生成 0 到 iNum-1 之间的随机数值.
Cells(I,J) = Range("G10").Offset(iRND,0)
Range("G10").Offset(iRND,0).EntireRow.Delete
Next
Next
' 设置区域边框及颜色
Range("A1:E5").Borders.LineStyle = xlDouble
Range("A1:E5").Interior.ColorIndex = 6
' 设置行高列宽
Cells.ColumnWidth = 3.57
Cells.RowHeight = 22.5
Range("A1").Select
End Sub