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

 时间:2024-10-14 04:03:22

1、打开excel

2、按ALT+F11打开VBA界面

3、双击工作表

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

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

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

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

关于在excel中生成总数为33的不重复随机数
  • excel怎么将几分几秒转分
  • 打开Excel提示“运行时错误1004”怎么办
  • Excel 2016表格中如何对比两列数字的大小
  • Excel工作表标签sheet不见了
  • LFET和LEN、LENB函数截取复杂文本中左侧的汉字
  • 热门搜索
    春节手抄报内容 清明节的手抄报内容 爱路护路手抄报 中秋节手抄报 预防近视手抄报 消防安全手抄报 安全教育手抄报内容 汉字手抄报 重阳节的手抄报 阅读手抄报简单又漂亮