材料/工具
Excel
方法
启动Excel
按Alt + F11启动VBA
选择要生成随机数的工作表。
输入以下代码：
Sub m()
R来自ange("A:A").ClearContents' 这里是A列，根据需要修改
For i = 1 To 10' 这里是10个数字，根据需要修改
kkk:
Randomize
x = Int(Rnd * 10) + 1
If Application.CountIf(Range("A:A"), x) = 0 Then
Cells(i, 1) = x
Else
GoTo kkk
End If
Next i
End Sub
按F5运行，即可得到结果。
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 951076433@qq.com 举报，一经查实，本站将立刻删除。如若转载，请注明出处：https://www.xiaomafuwu.com/214639.html
