如何用VBA 在10*10的范围内随机生成100个不同的数。

Question

如题所述

Answer 1

我在EXCEL中写了个VBA程序，在A1:J10随机生成100个不同的数。

Sub 宏1()
For i = 1 To 10
For j = 1 To 10
Cells(i, j + 11) = Rnd
Next j, i
For i = 1 To 10
For j = 1 To 10
Cells(i, j) = Application.WorksheetFunction.Rank(Cells(i, j + 11), Range(Cells(1, 12), Cells(10, 21)))
Next j, i
Range("A1:J10").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("L:U").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlToLeft
Range("A1").Select
End Sub

Answer 2

要求说清楚才能做

戳我头像，一切都会有的。 所得取决于所付出的。
没要求的话，双循环，加随机数就好了。