EXCEL随机产生整数，且不重复

excel

使用宏进行整数随机排列：

Sub test()

Dim Ph(1 To 500) As String, T As String

For i = 1 To 500

Ph(i) = i

Next

For i = 1 To 500

r = Int(Rnd() * 500) + 1

T = Ph(i)

Ph(i) = Ph(r)

Ph(r) = T

Next

For i = 1 To 500

Range("A" & i) = Ph(i)

Next

End Sub以上是一个使用excel宏进行整数随机排列的示例代码。该代码定义了一个包含500个整数的数组Ph，并使用一个循环来对这些整数进行随机排列。首先，通过一个循环将数组中的每个元素初始化为它的索引值。然后，在另一个循环中，通过生成一个0到500之间随机数，并将其与当前元素的索引值加1后的结果相等来确定要被交换的元素。最后，将随机排列后的数组中的元素赋值回原始位置，并在工作表中输出结果。这个宏可以用于解决一些需要随机排列整数数组的问题，例如生成随机数列、模拟实验等。通过修改循环次数和其他参数来调整结果，以满足不同需求。注意：以上代码中的随机数范围默认为0到500（含），可根据需要修改。