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

1、打开excel

2、按ALT+F11打开VBA界面

3、双击工作表

4、在弹出窗口处输入代码

5、复制粘贴以下代码

Option Explicit

Private 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