生成指定数量的随机彩票幸运号以生成双色球为例：
规则：每注号码一共7位数组成，前6位数值从1-33，最后一位从1-16
需要用到数组和随机函数
代码如下：
Sub 生成随机幸运彩票号码()
Dim n As Integer, i As Integer, j As Integer
Dim arr() As Integer
n = Application.InputBox("请输入需要生成幸运号码的数量：", "幸运号码", , , , , , 2)
ReDim arr(n, 7) As Integer
For i = 1 To n
For j = 1 To 7
If j = 7 Then
Randomize
arr(i, j) = Int(16 * Rnd) + 1 '生成1-16的随机整数
Else
Randomize
arr(i, j) = Int(33 * Rnd) + 1 '生成1-33的随机整数
End If
Next
Next
Set Rng = Sheets(1).Range(Cells(1, 1), Cells(n, 7)) '设置一个从第1行第一列单元格开始的N行7列的指定区域
Rng.Value = arr '这个区域的值等于数组arr的值，注意数组应该和区域同样大小。
End Sub