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

发布网友 发布时间：2022-04-22 03:29

我来回答

共2个回答

热心网友 时间：2023-09-03 19:47

我在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

热心网友 时间：2023-09-03 19:47

要求说清楚才能做

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