1、首先我们打开一个工作样表作为例子。
2、进入vba编辑器，并输入以下代码：Option Base 1Sub 幸运号码() Dim n As Integer, i As Integer, j As Integer 肛舀辨乔Dim l() As Integer n = Application.InputBox("请输入需要产生幸运号码的数量：", "幸运号码", , , , , , 2) ReDim l(n, 7) As Integer For i = 1 To n For j = 1 To 7 Randomize l(i, j) = Int(10 * Rnd) Next Next For i = 1 To n For j = 1 To 7 Debug.Print l(i, j); Next Debug.Print NextEnd Sub
3、我们定义3个变量，和一个数组，数组不指定组内元素。变量n定义为输入变量，然后重新定义数组。
4、创建一个for循环，循环次数为输入值N，并rnd随机7个数值定义到数组内。rnd函数随机的数值是大于0小于1，所以我们对其*10并取整。
5、这里我们重新写了一个for循环，是为了检验方便，实际上可以将代码合并，并以同样的格式输出。
6、最后我们可以在立即窗口中得到答案，如果需要写入表格中，我们可以加上这句range代码就可以实现目的了。
7、先写到这里了，谢谢大家的观看。祝大家生活愉快。小编棵褶佐峨还有许多其他的经验可以观看，如果无法解决问题可以联系小编进行咨询。看不清楚图片的可以点击放大再看哦。