作业帮请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/28 19:22:59
请问如何使用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