excel随机出11-80的数,里面不要42,43,67,68,69,在线等

来源:百度知道 编辑:UC知道 时间:2024/05/25 13:16:32

用vba代码,帮你写好了,不会用的话hi我!

Option Base 1
Sub test()
Dim i, j, x(70) As Integer
For i = 1 To 70
x(i) = i + 10
Next i
re:
Randomize
j = Int((UBound(x) - LBound(x) + 1) * Rnd) + LBound(x)
If x(j) = 42 Or x(j) = 43 Or x(j) = 67 Or x(j) = 68 Or x(j) = 69 Then GoTo re
Sheets("sheet1").Cells(1, 2).Value = x(j)
End Sub

在A列输入11-80,不包括42,43,67,68,69。(用下拉再删除相应行,很快的)
然后在B1输入以下公式
=INDIRECT("a"&INT(65*RAND())+1)