这个随机的数据的大小没有要求?下面以F列为100~999随机数值为例: (测试通过)
按ALT+F11后,将以下内容复制进去,再点运行宏运行GetRnd,即可
Sub GetRnd()
Randomize
For i = 1 To 150
Do
temp = Int(Rnd() * 899) + 100
If temp <> Cells(i, 3) Then
Exit Do
End If
Loop
Cells(i, 5) = temp
Next i
End Sub
这可以用Excel中的VB编程解决,很省力