Question

excel从A1到J10做出随机生成的不重复的100个数字

我很菜，但是想做这么一个东西，希望有人能够帮助我。
我需要一步一步尽可能的详细，否则我无法做到。
从A1到J10这100个单元格里生成从1到100的随机数字，而且要求不重复。
如何能够做到？
在线等，分能给多少就给多少！！！
一楼的答案很好，我安你的做了，但是每次都提示安全级别高，宏被禁用，而且不随机。
我说的随机的意思是，每次进，数字的位置都是变化的。
调整安全后，每次进的时候提示启用禁用宏，再次点击工具宏那个随机数变化，可以用了，但是不太方便，还有更好的办法吗？
补充的很好，每次都变了，但是关闭的时候提示保存不保存，那个选哪个都无所谓吧？
还有每次进的时候提示启用宏的那个能改变吗？
先把分给你。

Answer 1

不重复随机数，用VBA做

按ALT+F11,调出vbe

双击左边sheet列表的sheet1
在右边代码编辑区贴入以下代码

Public Sub sjs()
Dim rng As Range, rng1 As Range
Set rng = Range("A1:J10")
rng.ClearContents
Randomize
For Each rng1 In rng
Do
rng1 = Int(Rnd * 100 + 1)
Loop Until Application.WorksheetFunction.CountIf(rng, rng1) = 1
Next
End Sub

excel表格菜单栏，工具，宏，选中该宏，点击执行

补充

我说的随机的意思是，每次进，数字的位置都是变化的。

可以用thisworkbook的open事件

双击左边的thisworkbook
在右边代码编辑区贴入以下代码

Private Sub Workbook_Open()
Dim rng As Range, rng1 As Range
Set rng = Sheets(1).Range("A1:J10")
rng.ClearContents
Randomize
For Each rng1 In rng
Do
rng1 = Int(Rnd * 100 + 1)
Loop Until Application.WorksheetFunction.CountIf(rng, rng1) = 1
Next
End Sub

把宏安全调为 中
打开后启用宏，每次打开工作薄，都会随机生成

Answer 2

http://club.excelhome.net/thread-503929-1-1.html

Answer 3

受益匪浅啊，学习了。 在宏的安全性里讲级别设置成中。