我想用Excel给学生排考场，让学生不按老师指定的位置坐。
- 培训职业
- 2025-05-07 00:51:40
以1至100号为例，随机生成，宏代码如下：
做一个按钮或录一个宏,把内容换为如下:
Dim a As Range, b As Range
Set a = Range("A1:A100")
a.ClearContents
Randomize
For Each b In a
Do
b = Int(1 + Rnd * 100)
Loop Until Application.WorksheetFunction.CountIf(a, b) = 1
Next
说明:每点一次按钮或执行一次宏,就可以生成一次新的数.
上一篇
水波帘头多个不裁断怎么接
下一篇
UG怎么创建刀具
多重随机标签