按指定次数重复内容

 前言

有时候我们需要对一列单元格按照指定的次数进行重复，如下图所示，D列为结果。

 解决方法

今天我们试图用VBA来实现，方法如下：

ALT+F11 打开VBA，插入任意模块，在模块中输入如下代码：

Sub 重复()

Dim m As Integer

Dim i As Integer

Dim j As Integer

m = 2

For i = 2 To 6

For j = 1 To Cells(i, 2)

    Cells(m, 5) = Cells(i, 1)

    m = m + 1

Next

Next

End Sub

将鼠标放在代码内任意位置，按F5运行，即可快速实现单元格按要求实现重复特定的次数。

 知识点

VBA

循环语句FOR ...NEXT

END