数据源: 要求:按填充次数重复数据。 在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 通过一系列的数组练习,来熟悉数组的套路。 |
|