关于在excel中生成总数为33的不重复随机数

1、打开excel

2、按ALT+F11打开VBA界面

3、双击工作表

5、复制粘贴以下代码Option ExplicitPrivate Sub CommandButton1_Click() Dim i As Integer, j As Integer, k As Integer, v As Integer Dim ish As Boolean Randomize For i = 1 To 1000 For j = 1 To 7 v = Int(Rnd * 33) + 1 ish = True For k = 1 To j - 1 If v = Cells(i, k) Then ish = False Exit For End If Next k If ish Then Cells(i, j) = Str(v) Else j = j - 1 End If Next j Next i MsgBox ("生成完成，点击确定退出程序。") End End Sub