1、打开Excel表格，点击【开发工具】、【Visual Basic】打开VBA编辑器。
2、在VBA编辑器窗口点击【插入】、【模块】。
3、在“模块”的代码窗口里边输入以下VBA程序代码：Sub RandomNumberSelect()Dim i, j, k, x, rn, h, m, nOn Error Resume Next '忽略运行过程中可能出现的错误Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表mysheet1.Range("A3:G100").Value = "" '清空单元格内容n = IsNumeric(mysheet1.Cells(2, 8)) '判断填充的内容是否为数值If mysheet1.Cells(2, 8) <> "" And n = True And mysheet1.Cells(2, 8) >= 1 Then'如果要生成的随机数个数的单元格不为空白，且为数值（数值>=1），则： h = Int(mysheet1.Cells(2, 8)) + 2 '从第三行开始 For m = 3 To h Set myrange = mysheet1.Range(mysheet1.Cells(m, 1), mysheet1.Cells(m, 6)) x = 0 '初始值为0 j = 0 Do k = Int(Rnd * 33 + 1) '1-33的随机整数 i = Application.WorksheetFunction.CountIf(myrange, k) 'i，统计数值在同一行（如：A3:F3）里边出现是次数 For Each rn In myrange '循环同一行单元格区域里边的每一个单元格 If i = 0 And rn = "" Then '如果没有出现过且单元格为空白 rn.Value = k '将数值写入该单元格里边 j = j + 1 Exit For '退出For循环 End If Next x = x + 1 '中间变量值递增1 If j = 6 Or x = 200000 Then '如果数值已经填充到第六列，或x条件满足 mysheet1.Cells(m, 7).Value = Int(Rnd * 16 + 1) '从1-16里边随机选择出1个整数 Exit Do '退出Do循环 End If Loop NextEnd IfEnd Sub
4、程序函数、思路解读：（1）先判断要生成的随机数组的个数是否为空白、或者非数值，条件满足再碌巫谫浪执行后边的程序，以提高运行速度；（2）Rnd函数的取值范围是>=0，且<1的叨斧杼镲随机数；（3）Int是取整函数；（4）For循坏每执行一次，将会执行一行的判断；（5）使用Do循环时，应当避免死循环的情况发生，所以，应当加设一个条件，以免无法求出结果时无法退出循坏。
5、回到Excel工作表界面，点击【插入】，在“形状”里边选择一个图形（如：长方形）并在Excel工作表上面绘制。
6、在绘制好的图形上边单击右键，选择“指定宏”，选择已经在模块程序里边写好的宏的名称（如：RandomNumberSelect），然后点击【确定】。
7、在指定的单元格（如：H2）里面输入要生成随机数组的个数，点击已经绘制的图形按钮（已经指定该宏），即可生成随机整数。（同一行的前6个整数不重复）
