EXCEL中如何按照指定次数重复内容？

1、  A列就是我们要重复的内容，B列就是相应的次数，我们首先这样把数据准备好，不管内容多少代码会自动判定。代码通用。

2、   右击工作表标签，选择查看代码（快捷键ALT+F11），都可以进入

3、 进入VBE界面后，右击Thiswokrbook,选择插入-模块；

4、  插入模块后，双击模块，进入代码编辑区域，输入代码

Sub 按指定次数重复内容()

'代码由yianxss原创，转载请注明

Dim i&, arr(1 To 100000, 1 To 1)

'A列内容行数

i = Cells(Rows.Count, 1).End(3).Row

For k = 2 To i

    '按次数重复

    For n = 1 To Cells(k, 2)

        arr(m + 1, 1) = Cells(k, 1)

        m = m + 1

    Next

Next

'[d2]存放的开始地址，可修改

[d2].Resize(m, 1) = arr

End Sub

代码OK后，右上角叉，关闭VBE编辑器，返回工作表。

5、  点击开发工具选项卡-控件，选择按钮控件，点击

6、  在工作表的空白区域，鼠标拖动，画出一个大小合适的按钮，并右击制定宏；

7、  选择”按指定次数重复内容“，然后点击确定按钮，返回工作表；

8、  最后，我们点击按钮，看一下效果吧，已经按照要求生成了，D列就是我们要的效果了。小伙伴们，你们学会了吗？