请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
请问如何使用Excel来制作一个5X5的表格,并让1-25这25个数字随机分布在25个单元格里.
最佳回答
这个用 VBA 解决较好,示例参考(右击"Sheet1"工作表标签>>查看代码>>键入下列代码>>按 F5 执行即可):Sub RND5X5()Cells。Delete ' 删除原有数据' 预置初始的 1-25Range("G10:G34")。Formula = "=row()-9"Range("G10:G34")。Value = Range("G10:G34")。ValueDim I%,J%,iRND%,iNum%Randomize ' 对随机数生成器做初始化的动作。For I = 1 To 5For J = 1 To 5iNum = 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。DeleteNextNext' 设置区域边框及颜色Range("A1:E5")。Borders。LineStyle = xlDoubleRange("A1:E5")。Interior。ColorIndex = 6' 设置行高列宽Cells。ColumnWidth = 3。57Cells。RowHeight = 22。5Range("A1")。SelectEnd Su
最新回答共有2条回答
-
2026-04-03 13:00:17听话的小丸子
回复这个用 VBA 解决较好,示例参考(右击"Sheet1"工作表标签>>查看代码>>键入下列代码>>按 F5 执行即可):Sub RND5X5()Cells。Delete ' 删除原有数据' 预置初始的 1-25Range("G10:G34")。Formula = "=row()-9"Range("G10:G34")。Value = Range("G10:G34")。ValueDim I%,J%,iRND%,iNum%Randomize ' 对随机数生成器做初始化的动作。For I = 1 To 5For J = 1 To 5iNum = 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。DeleteNextNext' 设置区域边框及颜色Range("A1:E5")。Borders。LineStyle = xlDoubleRange("A1:E5")。Interior。ColorIndex = 6' 设置行高列宽Cells。ColumnWidth = 3。57Cells。RowHeight = 22。5Range("A1")。SelectEnd Su
热门文章
- 康达学院专转本五年制
- 高考一个考场分ab卷吗
- not only but also用法
- 某物体做自由落体运动,从释放开始计时,则物体在前2s内的平均速度为______m/s,物体下落2m时的速度大小为______m/s.
- 三角函数公式大全表格
- 地理中考必背知识点2022
- 2013-2014学年小学六年级科学上学期期末考试试卷及答案
- 人教版2014-2015学年小学五年级英语第二学期期中教学质量检测试卷及答案
- 【Linux驱动开发】设备树详解(二)设备树语法详解
- 别跟客户扯细节
- 在别的城市买房子能落户吗
- 卖房前要把装修贷还完吗
- 高中政治教学提高教学效果的方法探究
- “互联网+”背景下的初中英语课堂教学改革与创新策略研究
- 2022年终止合同范本
- 租房合同范本范文
- 如何挑选土豆
- 如何挑选土鸡
