vba 定义数组_神奇的VBA编程：随机生成彩票数据

一段简单的VBA代码，让你自如操作Excel，成为职场达人！

抛砖引玉的场景需求：平时我们会买些彩票，彩票开奖时，彩票数据都是随机生成的(不知道是不是有人真信了)。这就涉及到的随机函数应用。本篇中我们模拟一组数据当做彩票数据。

场     景

在活动工作表中生成6组含有7个随机数的数据。

在标准模块中加入如下代码即可实现上面的演示功能。 注意下面代码只是凸显演示重要功能， 工作表中的颜色，文字大小等格式是手动设置的。

Option Base 1Sub 随机生成幸运数字()Dim n As Integer, x As Integer, y As IntegerDim arr() As Integer'需要产生幸运号码的数量n = 6: m = 7'重新定义数据容量ReDim arr(n, m) As Integer'向数组中随意填充随机数For x = 1 To nFor y = 1 To mRandomizearr(x, y) = Int(10 * Rnd)'将数组数据加载进单元格区域中Cells(x + 1, y + 1) = arr(x,