按指定次数重复数据，最牛的方法最简单

各位亲们，我是小潜潜，今天和大家说说按指定次数复制内容的技巧，先看数据吧：

这是一组模拟的产品标签，为了打印需要，要求将A列的标签按指定的次数进行复制。

最终效果如D列所示：

1

公式法

D2单元格输入以下数组公式，按Ctrl Shift 回车，向下复制到出现空白为止：

=INDEX(A:A,SMALL(IF(B$2:B$6>=COLUMN(A:Z),ROW($2:$6),99),ROW(A1)))&''

使用数组公式适合数据量比较小的情况，如果数据量比较大，数组公式运行会非常缓慢。

2

VBA法

按Alt F11打开VBE界面。

【插入】→【模块】，输入以下代码：

Option Explicit

Sub 拆分()

    Dim irow&, irowincrease&, sumnum

    irowincrease = 2

    For irow = 2 To 6

        sumnum = sumnum Cells(irow, 2)

        Do

            Cells(irowincrease, 4) = Cells(irow, 1)

            irowincrease = irowincrease 1

        Loop Until irowincrease - 1 > sumnum

    Next irow

End Sub

点击【运行】按钮，即可在工作表D列生成需要的结果。

VBA的方法快速便捷，但是需要有一定的VBA基础，对于多数人来说，密密麻麻的代码还基本等同于天书一般。

3

技巧法

先看动画（单击图片播放）：

步骤1 ：输入公式

=A2&REPT(CHAR(10),B2-1)

步骤2：复制到Word中，粘贴为文本

步骤3：按Ctrl H 替换掉多余的半角引号

步骤4：按Ctrl A全选Word中的内容，然后复制粘贴到Excel

步骤5：按Ctrl G定位空值，然后按方向键的 ↑，再按Ctrl 回车

三种方法，各有特点，你喜欢哪一种呢？

好了，今天的分享就是这些，祝小伙伴们一天好心情！

图文作者：小潜潜  老祝