VBA入门52：用数组填充

数据源：

要求：按填充次数重复数据。

---

        在VBA中，填充可以用filldown方法来实现。用此方法来实现上述栗子，则需要插入行，然后填充。

        比如，在第2行下面插入2行，然后将“小乔”的数据向下填充......

        这一系列的操作，其实都可以用数组来实现,而且简单。

代码：

Sub vvv()

    '声明空白brr数组,足够大,可以装满填充数据

    Dim arr, brr(1 To 1000, 1 To 3)

    arr = [a1].CurrentRegion '将数据写入数组arr

    

    For i = 2 To UBound(arr) '遍历数据

        For m = 1 To arr(i, 3) '填充次数，用循环解决

        K = K 1 '计数，确定写入数组brr的数据条数

            For j = 1 To UBound(arr, 2) '读取数据

                brr(K, j) = arr(i, j)

            Next j

        Next m

    Next i

    

    [e1:g1024768] = '' '清空单元格区域,放置结果数据

    [e1:g1] = Array('姓名', '数值', '填充次数') '标题

    [e2].Resize(K, 3) = brr '输出数据

End Sub

---

        

        通过一系列的数组练习,来熟悉数组的套路。